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Textverarbeitung auf dem Commodore 64 


Vorwort 


Als der erste Heimcomputer vor noch nicht allzu langer Zeit auf den Markt 
kam, konnte kaum jemand die stürmische Entwicklung vorhersehen, die auf 
diesem Gebiet später einmal stattfinden sollte. Damals stand man diesen 
neuen Geräten eher reserviert gegenüber. Die Laien wußten nicht so recht, 
was sie mit einem Heimcomputer anfangen sollten, und die EDV-Spezialisten 
belächelten die geringe Leistungsfähigkeit dieser Computer, die tatsäch- 
lich gegenüber den damaligen Großcomputern sehr bescheiden war. Das Blatt 
hat sich aber in relativ kurzer Zeit gewendet. Aus den sogenannten EDV- 
Laien sind mittlerweile EDV-Hobbyisten geworden, für die der Heimcomputer 
mehr als nur ein Spielzeug ist. Sie kennen sehr wohl die Leistungsfähig- 
keit und die Grenzen ihres Computers. Die EDV-Spezialisten erinnern sich 
an die damalige Zeit zurück und müssen beschämend zugeben, daß ihr frühe- 
rer Großcomputer eigentlich nicht 'größer' als die heutigen Hobbycomputer 
war. 

Aus den ursprünglichen Heimcomputern ging eine Klasse von Computern 
hervor, die unter dem Begriff 'Mikrocomputer' zusammengefaßt werden. Dazu 
zählen Computer, die für den privaten Bereich eingesetzt werden - die 
Hobbycomputer - und Rechner, die im professionellen Bereich verwendet wer- 
den - die Arbeitsplatzrechner. 

Dieses Buch wendet sich an Benutzer des COMMODORE 64, der aufgrund 
seiner Leistungsfähigkeit weit verbreitet ist und sich immer größer wer- 
dender Beliebtheit erfreut. Der Leser wird zunächst mit den erforderlichen 
Geräten vertraut gemacht, die er zur Durchführung benötigt. Danach folgt 
eine kurze Einführung in die Programmiersprache BASIC unter besonderer 
Berücksichtigung der Befehle, die für die Textverarbeitung von spezieller 
Bedeutung sind. Darauf aufbauend wird das eigentliche Thema des Buches 
behandelt, wobei das Buch und der Computer quasi eine 'Einheit' bilden. 
Der Leser erarbeitet sich nach und nach mehrere Programme, die er auch 
praktisch verwenden kann. Ich habe mich dabei bemüht, den Leser aktiv am 
Geschehen teilhaben zu lassen. Er soll das vorgestellte Programm ver- 
stehen lernen und dabei in der Lage sein, individuelle Änderungen oder 
Erweiterungen selbständig durchzuführen. 


VI Vorwort 





Bei der Darstellung des Stoffes habe ich besonderen Wert darauf ge- 
legt, daß auch ein Anfänger das Buch im Selbststudium durcharbeiten kann. 
Den jeweiligen Vorkenntnissen entsprechend wird es aber erforderlich 
sein, die Programmiersprache BASIC anhand eines Lehrbuches zu vertiefen. 
Es war mein Bestreben, das Thema gestrafft darzustellen, ohne aber den 
Leser zu überfordern. Die bei Büchern mit ähnlicher Thematik oft anzu- 
treffende Langatmigkeit habe ich zu vermeiden versucht, da der Leser 
sonst leicht die Freude am 'Weitermachen' verliert. Geholfen haben mir 
die Erfahrungen, die ich als EDV-Dozent an verschiedenen Bildungsein- 
richtungen sammeln konnte. 

Der erste Abschnitt des Buches gibt eine kurze Übersicht über die 
Programmiersprache BASIC, wobei das Schwergewicht auf die Befehle gelegt 
wird, die zur Textverarbeitung benötigt werden. Danach werden die Anfor- 
derungen diskutiert, die an ein Textsystem gestellt werden. Hieraus wird 
der Aufbau und die Funktionsweise eines einfachen Textprogramms entwik- 
kelt, das sich in übersichtliche Programmbausteine (auch Mdule genannt) 
aufteilen läßt. Diese Bausteine werden anschließend programmiert und fü- 
gen sich nach und nach zu dem fertigen Textsystem zusammen. Der Leser 
nimmt auf diese Art und Weise aktiv an der Entwicklung des Programms teil. 
Es ist allerdings auch möglich, das Programm nur einzugeben, ohne sich 
sehr intensiv mit der Materie zu beschäftigen. Ich möchte hier denjenigen 
Lesern entgegenkommen, die sich nur am Rande mit der Programmierung be- 
schäftigen wollen und hauptsächlich an der Benutzung eines fertigen Pro- 
gramms interessiert sind. 

Das beschriebene Textprogramm ist so geschrieben worden, daß es ohne 
große Schwierigkeiten auch auf einem Hobbycomputer eines anderen Herstel- 
lers ausgeführt werden kann. In einem weiteren Abschnitt, der für den 
fortgeschrittenen Leser gedacht ist, wird deshalb die Materie weiter ver- 
tieft und auf die speziellen Möglichkeiten des Commodore 64 eingegangen. 
Dadurch ist es möglich, daß der Leser seinen Commodore 64 optimal auszu- 
nutzen versteht. Der letzte Abschnitt stellt schließlich einige kommer- 
ziell erhältliche Textsysteme und deren Möglichkeiten vor. 

Meiner Frau danke ich für das sorgfältige Schreiben des Buches, das 
direkt aus dem Typoskript reproduziert wurde. Das Typoskript ist übrigens 
mit dem in diesem Buch vorgestellten Textprogramm auf dem C 64 geschrie- 
ben und auf einer Typenradschreibmaschine, die über ein Interface mit dem 
Computer verbunden ist, ausgedruckt worden. 
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Die Firmen COMMODORE @mbH/Frankfurt, Graf-Elektronik-Systeme @mbH/ 
Kempten, SM Software AG/München und die Olympia Werke @bH/Wilhelmshaven 
haben meine Arbeit dadurch unterstützt, indem sie mir bereitwillig In- 
formationen zur Verfügung stellten. 

Frau Schönfelder hat das Manuskript auf Fehler durchgesehen und mir 
wertvolle Hinweise und Anregungen gegeben. 

Dem Hanser Verlag danke ich für die gute Zusammenarbeit und für das 
bereitwillige Eingehen auf meine Wünsche. 


Den Lesern des Buches wünsche ich viel Erfolg! 


Josef Kwiatkowski Wanne-Eickel, im Sommer 1985 


Hinweise für den Leser 


Die im Buch enthaltenen Programme sind auf dem Commodore 64 und auf dem 
PC 128 lauffähig. 


Zu diesem Buch liegt eine Programmdiskette vor, die mit eingehefteter 
Bestellkarte vom Verlag bezogen werden kann. Eine Beschreibung der Pro- 
grammdiskette finden Sie auf Seite 145. 
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CLEAR/HOME-Taste 
Cursor springt in obere, linke Bild- 
schirmecke. Löscht Bildschirminhalt 
bei gleichzeitigem SHIFT-Drücken. 





RVS ON/OFF-Tasten 


Wechsel von Normaldarstellung in 


Control-Taste CTRL 


Steuert zusammen mit den Farb- 
tasten 8 Zeichen-Farben. 


8 Farbtasten 


Zum Aufrufen von 16 verschiedenen 






Farben. Negativdarstellung und umgekehrt. 
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CTRL 


RUN Sulz 
STOP LOCK 


= SHIFET SCHE 






RUN/STOP-Taste 


Stoppt das laufende Programm. 


C=-Taste 
Schaltet zusammen mit der SHIFT-Taste 
den Zeichensatz um. 


SHIFT-Taste 


Schaltet auf Großbuchstaben um. 








INST/DEL-Taste 


Zum Korrigieren bereits eingegebe- 
ner Texte auf dem Bildschirm. 





RESTORE-Taste 
Setzt den Computer in seinen 
Grundzustand zurück, zusammen 
mit RUN/STOP. 





ELR INST 
HOME DEL 


RESTORE 


RETURN 


1) 
CRSR CRSR 
y > 


4 Funktionstasten 


Frei programmierbar für ständig 
wiederkehrende Arbeitsabläufe 
8 Funktionen). 


CURSOR- 
Kontroll-Tasten 


Steuern den Cursor. 











1 Einführung 


Entsprechend der Bedeutung des englischen Wortes 'compute' ist die übliche 
Meinung, daß ein Computer lediglich Berechnungen durchführt. Unter 'Be- 
rechnung' soll hierbei die Verarbeitung von Zahlen, also von numerischen 
Daten, verstanden werden. Es gibt aber noch eine zweite Art von Daten, für 
deren Verarbeitung der Computer genauso gut geeignet ist: die alphanumer- 
ischen Daten. Unter alphanumerischen Daten versteht man Texte. Man hat 
mittlerweile erkannt, daß der Textverarbeitung die gleiche Bedeutung zu- 
gestanden werden muß, wie der Verarbeitung von Zahlen. Man sollte sich bei 
der Gelegenheit die Flut von Briefen und Mitteilungen vergegenwärtigen, 
die täglich geschrieben werden müssen. So ist es selbstverständlich, daß 
im kommerziellen Bereich die automatische Textverarbeitung längst ihren 
Einzug gehalten hat. Die Textverarbeitung wird hier entweder mit speziell 
dafür geschaffenen Computersystemen betrieben, oder ein einziger Computer 
wird für die numerische und alphanumerische Verarbeitung gleichermaßen 
eingesetzt. 

Nicht nur der Profi, sondern auch der Privatmann kann sich die Mög- 
lichkeiten, die ihm die automatisierte Textverarbeitung bietet, sinnvoll 
zunutze machen. Mit Ihrem Commodore 64 steht Ihnen dafür ein leistungs- 
fähiger Computer zur Verfügung. Warum beschränken Sie sich auf Computer- 
spiele oder auf die Durchführung von Berechnungen? Lassen Sie doch Ihren 
Commodore 64 die Einladungsbriefe an Ihre zahlreichen Freunde zur Geburts- 
tagsparty schreiben, Ihre Adreßkartei alphabetisch sortieren oder in Ihrer 


2 Einführung 


Schallplattenkartei nach einem bestimmten Titel suchen! Das sind nur eini- 
ge der nahezu unbegrenzten Möglichkeiten, die Ihnen die Textverarbeitung 
bietet. In diesem Buch werden Sie erfahren, wie solch ein Programm ge- 
schrieben werden kann. 

In den beiden ersten einführenden Kapiteln werden Sie mit den dazu 
notwendigen Grundlagen vertraut gemacht. Danach werden wir von einem ein- 
fachen Textprogramm ausgehend nach und nach dieses Programm erweitern, bis 
Sie schließlich am Ende des Buches ein Programm besitzen, das Sie vielfäl- 
tig einsetzen können. Arbeiten Sie immer aktiv mit! Sie werden so mit dem 
Programm bestens vertraut und können es später gegebenenfalls für Ihre 
speziellen Zwecke modifizieren oder erweitern. 


2 Hardware 


Was benötigt man, um Textverarbeitung mit dem Commodore 64 machen zu kön- 
nen? Neben dem Programm, der Software, benötigt man die einzelnen Teile 
eines Computersystems, die Hardware. Die Gesamtheit der Komponenten, aus 
denen ein Computersystem besteht, wird auch als Konfiguration eines Rech- 
ners bezeichnet. Nachstehend sind die Komponenten beschrieben, die man für 
ein Textverarbeitungssystem benötigt. Es gibt mehrere Möglichkeiten, sich 
ein geeignetes Computersystem zusammenzustellen. Welche Geräte Sie aus- 
wählen sollten, hängt von dem gewünschten Verwendungszweck und letztlich 
auch von dem Betrag ab, den Sie anlegen wollen. 


2.1 Zentraleinheit 


Unter Zentraleinheit wollen wir den Commodore 64 verstehen, so wie Sie ihn 
mit Netzteil als Grundgerät erwerben können (Abb. 1). 
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Abb. 1: Der Commodore 64 mit verschiedenen Peripheriegeräten 


Die Tastatur des Commodore 64 ähnelt der einer Schreibmaschine. Auffallend 
ist ein Block von 4 Tasten auf der rechten Seite der Tastatur (Abb. 2). 


CLR INST 
HOME DEL 


CTRL RESTORE 


RUN SHIFT Pr - 
STOP LOCK A D \ ; ; RETURN 


< 


Se) BR) A A a u ee ee ae 
! 


RUN/STOP-Taste SHIFT-Taste 


Abb. 2: Tastatur des Commodore 64 





CURSOR- 4 Funktionstasten 
Kontroll-Tasten 





An der rechten Seite und an der Rückseite des Gehäuses befinden sich eine 
Reihe von Anschlüssen. Wir wollen erst einmal die Verwendung dieser An- 
schlüsse durchsprechen. 

Auf der rechten Seite des Gehäuses (Abb. 3) finden Sie von rechts nach 
links: 


2 Hardware 5 


1: 


Buchse für die Spannungsversorgung 

Hier wird der Gerätestecker des Kabels angeschlossen, das den Rech- 
ner mit dem Netzgerät verbindet. 

Ein-/Ausschalter 

Steuereingänge für Spiele 

Es gibt hier zwei Eingänge, mit denen ein Joystick, ein Paddle oder 
ein Lichtgriffel angeschlossen werden kann. Für die Textverarbei- 
tung sind diese Eingänge nicht von Bedeutung. 





Anschluß Drehregler, Ein/Aus- Netzanschluß 
Steuerknüppel oder Schalter 
Lichtgriffel 


Abb. 3: Eingänge an der rechten Seite des Gehäuses 


Auf der Rückseite des Gehäuses finden Sie von links nach rechts folgende 
Anschlüsse (Abb. 4): 


Ts 


3x 


Modul-Steckplatz 

Der Modul-Steckplatz ist eine rechteckige Aussparung zum Einstecken 
von Programm- oder Spielmodulen. Dieser Anschluß ist für die Text- 
verarbeitung nicht interessant. 


TV-Anschluß 
Mit dieser Buchse können Sie den Commodore 64 über den Antennenan- 
schluß (75 Ohm) an einen Fernsehapparat anschließen. 


Audio & Video-Ausgang 
An diesen Ausgang (AV-Ausgang) kann ein Fernseher über den Video- 
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Eingang oder ein Monitor angeschlossen werden. 


4. Serieller Ausgang 
Dieser Ausgang dient zum Anschluß eines Druckers oder eines Disket- 
ten-Einzellaufwerks. 


5. Recorder-Anschluß 
Hier wird die Datassette angeschlossen. 





„ Anschluß TV-Modulator Audio/Video- Anschluß Drucker Cassettenrecorder- User Port 
für Steckmodule Anschluß und Anschluß 
Diskettenlaufwerk 


Abb. 4: Anschlüsse auf der Rückseite des Gehäuses 


6b. User Port 
Der User Port ist ein frei programmierbarer Ein-/Ausgang und bietet 


eine Anschlußmöglichkeit für Steckmodule. Er ist für das Thema die- 
ses Buches nicht von Bedeutung. 


Das 'Innenleben' des Commodore 64 besteht hauptsächlich aus dem Arbeits- 
speicher (RAM) und dem Mikroprozessor. Der Arbeitsspeicher enthält das 
auszuführende Programm und die unmittelbar dazugehörigen Daten. Die Abar- 
beitung des Programms erfolgt durch den Mikroprozessor. Wenn Sie den Com- 
modore 64 einschalten, erscheint auf dem Bildschirm die Meldung 


*%*%%* COMMODORE 64 BASIC V2 **** 
64K RAM SYSTEM 38911 BASIC BYTES FREE 
READY. 


2 Hardware 1 


Damit wird mitgeteilt, daß insgesamt 38911 Bytes dem Benutzer frei zur 
Verfügung stehen. Byte ist ein Maß für die Kapazität des Arbeitsspeichers 
und gibt an, wieviele Zeichen gespeichert werden können. 


2.2 Bildschirm 


Die Ausgabe der Daten erfolgt über einen Bildschirm. An den Commodore 64 
können Sie entweder einen Monitor oder aber auch einen handelsüblichen 
Fernsehapparat anschließen. 

Die besten Ergebnisse bezüglich Klarheit und Brillanz des Bildes wer- 
den Sie mit einem Monitor erzielen (Abb. 5), da dieser Monitor speziell 
für den Anschluß an den Computer gebaut ist. Die Verbindung erfolgt über 
den AV-Ausgang. 





Abb. 5: Monitor 


Die kostengünstigste Möglichkeit ist aber, den vorhandenen Fernsehapparat 
als Bildschirm zu benutzen. Sie können den Fernsehapparat entweder über 
den Antenneneingang (UHV, Kanal 36) oder über den Video Eingang (AV-Ein- 
gang) mit dem Computer verbinden. Sie erhalten ein besseres Ergebnis, wenn 
Sie anstelle des Antenneneingangs den Video Eingang wählen. 


8 Drucker 


2.3 Drucker 


An den Commodore 64 können Sie über den seriellen Ausgang einen Drucker 
anschließen. Es stehen mehrere Typen zur Auswahl, die je nach Anwendungs- 
fall Vor- und Nachteile aufweisen. 


2.3.1 Matrix-Drucker 


Die kostengünstigste Lösung stellt ein Matrix-Drucker (s. Abb. 6) dar. 
Mit einem Matrix Drucker werden die einzelnen Zeichen durch eine Matrix 
aus einzelnen Punkten zusammengesetzt, die das Auge gerade noch einzeln 
erkennen kann. Die Schriftqualität ist deshalb bescheiden; besonders dann, 
wenn das Farbband nicht mehr ganz neu ist (Abb. 7). Für den eigenen Ge- 
brauch reicht sie jedoch normalerweise aus. Der Vorteil des Matrix Druk- 





Abb. 6: Matrix-Drucker 


kers ist die relativ hohe Schreibgeschwindigkeit von etwa 80 Zeichen pro 
Sekunde. Ein weiterer Vorteil ist, daß einige Modelle auch als Plotter 
verwendet werden können. Plotter sind Geräte, die zur Ausgabe grafischer 
Darstellungen dienen. Auf die Verwendung von Matrix-Druckern als Plotter 
soll an dieser Stelle nicht eingegangen werden. Sie wird in dem Buch "Gra- 
fik mit dem COMMODORE 64' behandelt. 
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Abb. 7: Schriftprobe eines Matrix-Druckers 


2.3.2 Typenrad-Drucker 


Sie können an den Commodore 64 auch einen Typenrad-Drucker anschließen. 
Typenrad-Drucker sind allerdings teurer als Matrix-Drucker. 





Abb. 8: Schreibmaschine als Typenrad-Drucker 


Eine kostengünstige Möglichkeit ist, eine handelsübliche Typenrad-Schreib- 
maschine (Abb. 8) an den Computer anzuschließen. Man kann diese Schreib- 
maschine dann wahlweise als Drucker oder als Schreibmaschine nutzen. Für 


10 Typenrad-Drucker 


den Anschluß an den Computer ist allerdings noch ein Interface notwendig, 
das quasi zwischen Computer und Schreibmaschine geschaltet werden muß. Die 
Interface Hersteller bauen diese direkt in die Schreibmaschine ein, so daß 
ein direkter Anschluß an den Computer über den seriellen Eingang erfolgen 
kann. Nebenbei sei bemerkt, daß dieses Buch mit solch einer Schreibmaschi- 
ne gesetzt worden ist. 
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Abb. 9: Druckwerk eines Typenrad-Druckers mit Carbon-Farbband 


Ein Nachteil des Typenrad-Druckers ist, daß er mit einer Geschwindigkeit 
von ca. 10 Zeichen pro Sekunde erheblich langsamer als der Matrix-Drucker 
ist. Ein weiterer Nachteil ist, daß im Gegensatz zu dem Matrix-Drucker die 
Schriftart nicht durch ein Programm gewählt werden kann. Verschiedene 
Schriftarten sind nur durch Auswechseln des Typenrades möglich. Abb. 9 
zeigt das Druckwerk eines Typenrad-Druckers mit eingelegtem Typenrad. Der 
große und entscheidende Vorteil des Typenrad-Druckers ist die hervorragen- 
de Schriftqualität. Abb. 10 zeigt ein Beispiel. 


Diese Schriftqualität wird auch als Korrespondenzqualität bezeichnet. 


Alles 

aus dem Nichts 

zu machen, 

genuegt eine Eins! 


(Leibniz ueber die Dualzahlen) 


Abb. 10: Schriftprobe eines Typenrad-Druckers 


2.4 Externspeicher 


Die Externspeicher dienen zur Speicherung von Programmen oder größeren 
Datenmengen. 


2.4.1 Die Datassette 1530 


Die Datassette ist im Prinzip ein Kassettenrecorder (Abb.11). Sie stellt 





Abb. 11: Datassettenspeicher 


12 Der Diskettenspeicher 1541 


die preisgünstigste Lösung eines Speichers dar. Der Nachteil dieses Spei- 
chers ist, daß man auf die Daten nur sequentiell (nacheinander) zugreifen 
kann und die Zugriffszeit relativ hoch ist. 


2.4.2 Der Diskettenspeicher 1541 


Der Diskettenspeicher ist erheblich teurer als der Datassettenspeicher. Er 
hat allerdings den Vorteil, daß die Zugriffszeit zu den Daten deutlich 
kürzer ist. Ein weiterer Vorteil ist, daß auf die Daten direkt zugegriffen 
werden kann (random access). Auf einer Diskette können ca. 60 vollge- 
schriebene DIN A4 Seiten Text gespeichert werden. Die Betriebsbereit- 





Abb. 12: Diskettenspeicher 


schaft der Diskette wird durch eine grüne Leuchtdiode (LED) angezeigt. 
Wenn Daten oder Programme auf der Diskette gespeichert oder von der Dis- 
kette gelesen werden, leuchtet eine rote Leuchtdiode auf. Diese rote LED 
blinkt, wenn ein Fehler auftritt. 


2.5 Auswahlkriterien für die Komponenten eines Textsystems 


Bei der Auswahl der Hardware Komponenten für ein Textsystem sollte man 
sich zunächst einmal überlegen, für welche Zwecke man das System einset- 
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zen möchte. Erst dann sollte die Auswahl erfolgen. Die Entscheidung ist 
aber nicht zwingend, da das System auch nach und nach ausgebaut werden 
kann. Das in diesem Buch vorgestellte Programm berücksichtigt dieses und 
erlaubt eine frei wählbare Zusammenstellung der einzelnen Komponenten. Für 
den Anfang kommen Sie mit dem Grundgerät aus. 

In Tabelle 1 sind einige Entscheidungshilfen gegeben, wie die Endaus- 
baustufe eines Textsystems bei unterschiedlichen Anforderungen aussehen 
sollte. 


Tabelle 1 Ausbaustufen eines Textsystems bei verschiedenen Anforderungen 


Monitor | Fernseh- |Datassette |Disketten-| Matrix- | Typenrad- 
apparat laufwerk |drucker | drucker 









gelegentlicher 

Einsatz 

semiprofessioneller 

Einsatz 

geringe Datenmengen ni 
größere Datenmengen 1 
verschiedene Schrift- 

arten ohne manuellen 

Eingriff 

hohe Schriftqualität ana d 
Mischen von Dateien 
Bausteinverarbeitung 


Simultane Text- und 
Grafikausgabe 


preisgünstiges System 


3 Grundlagen 


In diesem Kapitel sollen kurz einige Grundlagen erläutert werden, damit 
Sie das später vorgestellte Programm zur Textverarbeitung besser verstehen 
können. Dabei wird allerdings vorausgesetzt, daß Sie sich bereits ein we- 
nig mit der Programmiersprache BASIC vertraut gemacht haben oder ein Lehr- 
buch über BASIC als Ergänzung heranziehen. 


3.1 Äußere Form eines BASIC Programms 


Bei der Erstellung eines BASIC Programms muß eine bestimmte Form einge- 
halten werden. Jedes BASIC Programm besteht aus einer Folge von Anwei- 
sungszeilen, die eine Nummer tragen müssen. Die einzelnen Zeilen eines 
Programms werden in der Reihenfolge ihrer Nummern ausgeführt. Man nume- 
riert die einzelnen Anweisungen zweckmäßigerweise in 10er Schritten, damit 
bei Bedarf Anweisungen eingefügt werden können. Die Anweisungen müssen 
nicht in der Reihenfolge ihrer Nummern eingegeben werden, da der Rechner 
selbständig eine Sortierung vornimmt. 


10 INPUT A 

20 INPUT B 

30C=A+B Programm P1 
40 PRINT C 

50 END 
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Trifft der Rechner auf den Befehl END, wird die Ausführung des Programms 
beendet. 

Es ist auch möglich, mehrere Befehle in eine Zeile zu schreiben. In 
diesem Fall müssen die einzelnen Befehle mittels Doppelpunkt voneinander 
getrennt werden. Das Programm Pi kann somit auch folgendermaßen geschrie- 
ben werden: 


10 INPUT A: INPUT B:C=A+B 10 INPUT A 
20 PRINT C: END oder 20 INPUT B: C=A+B:PRINT C 
30 END 


3.2 Konstanten, Variablen und Wertzuweisung 


Unter einer Konstanten versteht man eine feste Zahl. Dabei unterscheidet 
man zwischen ganzen Zahlen und Dezimalzahlen. Bei Dezimalzahlen muß darauf 
geachtet werden, daß anstelle des Dezimalkommas ein Dezimalpunkt geschrie- 
ben wird. Beispiele: 


45.23 anstelle 45,23 
.418 oder 0.418 anstelle 0,418 
-2.137 anstelle -2,137 


Neben den "numerischen! Daten (Zahlen) gibt es auch noch die "alphanumeri- 
schen' Daten (Texte). Diese Daten werden auch Zeichenketten oder Strings 
genannt. Bei einer Stringkonstanten muß darauf geachtet werden, daß sie 
in Anführungszeichen eingeschlossen wird (Textkonstante). 


Text Textkonstante 
COMPUTER "COMPUTER" 

DER COMMODORE 64 "DER COMMODORE 64" 
EIN TEXTSYSTEM "EIN TEXTSYSTEM" 


In der Zentraleinheit des Commodore 64 befindet sich das Rechenwerk und 
ein Arbeitsspeicher. Der Arbeitsspeicher besteht aus einzelnen Speicher- 
zellen, auf denen Daten abgespeichert werden können. Daneben enthält der 
Arbeitsspeicher auch das Programm, welches gerade ausgeführt werden soll. 


16 Konstanten, Variablen und Wertzuweisung 


Um auf einen Speicherplatz Daten speichern zu können, muß dem Speicher- 
platz ein Name gegeben werden. Der Name ist frei wählbar; es muß lediglich 
darauf geachtet werden, daß er aus maximal zwei Zeichen bestehen darf.Das 
erste Zeichen muß ein Buchstabe sein, das zweite Zeichen kann ein Buch- 
stabe oder eine Ziffer sein. Beispiele: 


A XY C5 B6 AB 


Man nennt solch einen Namen auch Variablennamen, da er symbolisch für 
einen beliebigen Datenwert steht. Der Name repräsentiert somit einen Spei- 
cherplatz des Arbeitsspeichers, der diesen Datenwert enthält. 

Auf einem Speicherplatz kann eine Dezimalzahl abgespeichert werden. 
Wenn der Speicherplatz eine ganzzahlige Zahl enthalten soll, so muß dem 
Variablennamen ein % angehängt werden; wenn er einen Text enthalten soll, 
wird dem Variablennamen ein $ angehängt. 

Durch die Zuweisung wird einer Variablen ein Wert zugewiesen. Beispie- 
le: 


A = 5.32 

Ak = 5 

A$ ="COMMODORE 64" 
X5 = -32.456 

X7$ = "BASIC" 

X3% = 312 


Rechts von dem Zuweisungssymbol (=) steht der Wert, links davon der Name 
des Speicherplatzes. Auch komplizierte Ausdrücke können als Wertangabe ver- 
wendet werden. Dazu werden Konstanten und Variablen durch Operatoren ver- 
knüpft. Beispiele: 


C=A+B 
%-=5* % 

A$ = B$ + C$ 
A5 = (6+B-C)*D 


Als Operatoren sind zulässig: 


+ Addition 
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- Subtraktion 

” Multiplikation 

/ Division 

+ Verkettung von Texten 


3.3 Ein- und Ausgabeanweisungen 


Eingabeanweisungen dienen dazu, Daten von einem Eingabegerät (Tastatur, 
Kassette, Diskette) in den Arbeitsspeicher einzugeben. Mit den Ausgabean- 
weisungen werden Daten aus dem Arbeitsspeicher auf einem Ausgabegerät 
(Bildschirm, Drucker, Kassette, Diskette) ausgegeben. Als Eingabebefehle 
stehen INPUT und GET und als Ausgabebefehle PRINT zur Verfügung. Nach den 
Befehlen werden die Namen der Speicherplätze angegeben, deren Inhalte über- 
tragen werden sollen. Beispiele: 


INPUT A, B5, C$ 
PRINT X%, Y 
GET B$ 


3.4 Funktionen zur Textverarbeitung 


Die Funktionen zur Textverarbeitung sollen an einem kleinen Beispielpro- 
gramm erläutert werden. Geben Sie nachstehendes Programm ein: 


10 INPUT X$ 

20 PRINT LEN(X$) 

30 PRINT LEFT$(X$,4) 

40 PRINT RIGHT$(X$,3) 

50 PRINT MID$(X$,2,3) 

60 PRINT RIGHT$(X$,4) + "WINKEL" 
7/0 END 


Programm P2 


18 Funktionen zur Textverarbeitung 


Starten Sie das Programm mit RUN und tippen Sie für X$ DORTMUND ein. Das 
Programm erzeugt folgenden Ausdruck: 


8 

DORT 

UND 

ORT 
MUNDWINKEL 


Wie funktioniert das Programm? 

In Zeile 10 wird auf den Speicherplatz X%$ ein Text eingelesen, der 
über die Tastatur eingegeben wird; in unserem Fall ist es der Name der 
Stadt DORTMUND. Mit der Funktion LEN kann man die Länge der Zeichenkette 
ermitteln. Unter der Länge versteht man die Anzahl der Zeichen, aus denen 
die Zeichenkette besteht (hier 8). Mit den Funktionen LEFT$, RIGHT$ und 
MID$ ist es möglich, aus einer Zeichenkette eine Teilzeichenkette heraus- 
zufiltern. Die Funktion LEFT$ bestimmt die ersten, die Funktion RIGHT$ die 
letzten Zeichen. Die Zeichenkette und die gewünschte Anzahl der Zeichen, 
aus denen die Untermenge bestehen soll, wird in Klammern nach dem 
Funktionsnamen angegeben. Die Zeilen 30 und 40 des Programms P2 zeigen ein 
Beispiel. Die ersten 4 Zeichen der Zeichenkette DORTMUND sind DORT; die 
letzten drei Zeichen bestehen aus UND. Mit MID$ kann aus der Mitte eines 
Textes eine Untermenge herausgegriffen werden. So bestimmt MID$(X$,X,Y) Y 
Zeichen von X$, beginnend mit dem Xten Zeichen. In unserem Beispiel ist 
MID$(X$,2,3) in Zeile 50 somit ORT. Durch '+'" können Texte miteinander 
verkettet werden. In Zeile 60 wird der Text MUND (=RIGHT$(X$,4)) mit der 
Zeichenkette 'WINKEL' zu dem Text MUNDWINKEL verknüpft. 

Die Zeichenfolge 5.4 kann als Text ("5.4") oder als Zahl (5.4) ver- 
standen werden. Deshalb ist es notwendig, die Anführungszeichen zu setzen, 
wenn es sich um eine Textkonstante handeln soll. Beachten Sie unbedingt 
den Unterschied: 


A 5,4 und AS ei" 
Mit "5.4" können keine Zahlenrechnungen durchgeführt werden. Dazu muß der 


Text erst in eine Zahl 'umgewandelt' werden. Das ist mit der Funktion VAL 
möglich. Beispiel: 
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————— nn nn ne 


10 A$ =u5.4 10 A = VAL("5.4") 
20 A = VAL(A$) 20 PRINT A 

30 PRINT A oder 30 END 

40 END 


Umgekehrt kann man aber auch eine Zahl in den entsprechenden Text umwan- 
deln. Die hierzu benötigte Funktion heißt STR$. Die Anwendung ist in nach- 
stehendem Beispiel gezeigt: 


10 A = 5.4 10 A$ = STR$(5.4) 
20 A$ = STR$(A) oder 20 PRINT A$ 

30 PRINT A$ 30 END 

40 END 


Jedes Zeichen ist durch einen Code verschlüsselt. Der COMMODORE 64 ver- 
wendet den ASCII-Code (American Standard Code for Information Interchange). 
Dabei entspricht jedem Zeichen eine Zahl. In Tabelle 2 sind die einzelnen 
Zeichen mit ihrem entsprechenden ASCII-Code aufgeführt. 


Tabelle 2: Zeichen mit zugehörigem ASCII-Code 


Zeichen ASCII-Code Zeichen ASCII-Code 


blockiert Bill 
entriegelt BWG 


RETURN 


MSIE 
KLEINBUCHST 
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Zeichen ASCII-Code Zeichen ASCII-Code 


>=, P- N<XS<c-H0 120 oz 


0 
1 

2 
3 
4 
5 
6 
v4 
8 
9 


li Al» 


Sa BB 


UMSCHALTUNG 
GROSSBUCHST. 


Zzrxc- - Ion mOoo >® 
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Wenn man den ASCII Code eines Zeichens wissen möchte, kann man dazu die 
Funktion ASC benutzen. Probieren Sie einmal folgendes Programm aus: 


10 INPUT Z$ 
20 Z = ASC(Z$) 
30 PRINT Z 

40 END 


Programm P3 


Starten Sie das Programm mit RUN und geben Sie für Z$ das Zeichen D ein. 
Der Computer wird dann die Zahl 68 erhalten. Starten Sie das Programm er- 
neut und geben Sie das Zeichen 8 ein. Auf dem Bildschirm erscheint die 
Zahl 56. Sie können diese Werte mithilfe der Tabelle 2 überprüfen. 

Das Gegenstück zu ASC ist die Funktion CHR$. Mit CHR$ erhalten Sie das 
ASCII-Zeichen zu dem entsprechenden Code. Geben Sie folgendes Programm ein 
und starten Sie es mit RUN: 


10 INPUT Z 
20 Z$ = CHR$(Z) 
30 PRINT Z$: END 


Testen Sie dieses Programm mit den Daten 68 und 56 für Z. Sie werden auf 
dem Bildschirm die Zeichen D bzw. 8 erhalten. 


3.5 Sprungbefehle GOTO, IF..THEN, ON..GOTO 


Wie bereits erwähnt, werden die Anweisungen eines Programms in der arith- 
metischen Reihenfolge ihrer Zeilennummern ausgeführt. Die Programmierung 
einiger Problemlösungen erfordert es aber manchmal, den Programmfluß um- 
zudirigieren. Dazu dienen die Sprungbefehle. Es gibt den unbedingten, den 
bedingten und den berechneten Sprungbefehl. 

Der unbedingte Sprungbefehl hat diesen Namen, da er in jedem Fall 
durchgeführt wird. Trifft der Rechner z. B. auf den Befehl GOTO 40, so 
wird das Programm bei der Anweisungszeile 40 fortgesetzt. 

Bei dem bedingten Sprungbefehl wird der Sprung nur dann ausgeführt, 
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wenn eine vorgegebene Bedingung erfüllt ist. Diese Bedingung wird bei- 
spielsweise durch einen Vergleich angegeben: 


IF A=B THEN 40 


Der Rechner springt nur dann zu der Anweisungszeile mit der Nummer 40, 
wenn die Speicherplätze A und B den gleichen Wert beinhalten. Die For- 
mulierung eines Vergleichs ist auch mit < > (ungleich), < (kleiner als), 

> (größer als), < = (kleiner gleich) oder > = (größer gleich) möglich. 
Weiterhin können Vergleiche durch "und' (AND) oder 'oder' (OR) miteinander 
verknüpft werden: 


IF A< B+C AND X=256 THEN 40 
Mit NOT wird eine Bedingung verneint: 
IF NOT B=A THEN 60 
Hinter THEN kann eine Zeilennummer oder Anweisungen angegeben werden: 


IFA< 
IFA<S 


B THEN PRINT Z 
B THEN X=Y+1: PRINT Z: A=B+C 


Bei dem berechneten Sprung kann aus einer Liste von Sprungzielen einer be- 


stimmt und ausgewählt werden. Dieser Sprungbefehl wird folgendermaßen for- 
muliert: 


ON X GOTO 40, 20, 33, 110, 56 


Wenn X den Wert 1 hat, springt der Rechner zu der Anweisung mit der Nummer 
40, hat X den Wert 2, so springt er zu der Anweisung mit der Nummer 20 usw. 


3.6 Schleifen FOR..NEXT 


Wenn Anweisungen eines Programms wiederholt ausgeführt werden, so spricht 
man von einer 'Schleife'. In BASIC werden Schleifen durch FOR..NEXT be- 
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schrieben. In der FOR-Anweisung wird der Startwert, der Endwert und die 
Schrittweite festgelegt. Diese Angaben beziehen sich auf den Schleifenin- 
dex, der den Ablauf der Schleife steuert. Alle Anweisungen, die zwischen 
der FOR- und der NEXT-Anweisung stehen, gehören zu der Schleife. In der 
NEXT-Anweisung wird der Name des Schleifenindex wiederholt. Geben Sie ein- 
mal dieses Programm ein: 


10 A$ = "BASIC" 
20 FOR I=1 TO 5 
| 30 X$ = LEFT$(A$,I) 
Schleife 40 PRINT X$ 


50 NEXT I 
60 END 


Programm P4 
Sie erhalten folgenden Ausdruck: 


B 

BA 
BAS 
BASI 
BASIC 


Überlegen Sie sich das 'Warum' und sehen Sie sich, falls notwendig, noch 
einmal Abschnitt 3.4 an. 
Ersetzen Sie Zeile 20 durch 


20 FOR I=1 TO 5 STEP 2 


Jetzt wird I nach jedem Durchlauf durch die Schleife nicht um den Wert 1, 
sondern um den Wert 2 erhöht. Starten Sie das Programm und schauen Sie sich 
das Ergebnis an. 

Programm P4 bearbeitet nur das Wort BASIC. Schreiben Sie einmal ein 
Programm, das die Aufgabe von P4 allgemeingültig löst! Programm P5 zeigt 
einen Lösungsvorschlag. 
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10 INPUT A$ 

20 FOR I=1 TO LEN(A$) 
30 PRINT LEFT$(A$,I) 
40 NEXT I 

50 END 


Programm P5 


Der Rechner soll jetzt vorwärts und rückwärts buchstabieren. Überlegen 
Sie erst einmal, bevor Sie das Programm P6 eintippen und starten! 


10 INPUT W$ 

20 PRINT "VORWAERTS" 

30 FOR I=1 TO LEN(W$) 

40 PRINT MID$(W$,1,1) 

50 NEXT I 

60 PRINT "RUECKWAERTSY 

70 FOR I=LEN(W$) TO 1 STEP -1 
80 PRINT MID$(W$,1,1) 

90 NEXT I 

100 END 


Programm P6 


3.7 Unterprogramme GOSUB..RETURN 


In einem Programm müssen häufig bestimmte Programmabschnitte wiederholt 
ausgeführt werden, wobei die jeweilige Verarbeitung aber immer mit anderen 
Daten vorgenommen werden soll. In diesem Fall empfiehlt es sich, die Ver- 
arbeitungsfolge als '"Unterprogramm' zu schreiben, das dann nur von den 
entsprechenden Stellen des 'Hauptprogramms' aufgerufen werden muß. Der 
Aufruf des Unterprogramms geschieht durch den Befehl GOSUB. Nach GOSUB 
wird die Anweisungsnummer angegeben, von der ab das Unterprogramm beginnt. 
Die Rückkehr vom Unterprogramm zum Hauptprogramm wird mit dem Befehl RE- 
TURN erzielt. 
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3.8 Feldvereinbarung DIM 


Bisher sind wir davon ausgegangen, daß eine Variable nur einen Wert auf- 
nehmen kann. Wir können aber auch unter einem Variablennamen mehrere Werte 
abspeichern, wenn wir in einer DIM-Anweisung festlegen, um wie viele Werte 
es sich handeln soll. So bedeutet die Anweisung 


10 DIM A(500), X$(25), Y1%(400) 


daß unter A 500 Dezimalzahlen, unter X$ 25 Zeichen Text und unter Y1% 400 
ganze Zahlen gespeichert werden können. Man bezeichnet diese Variablen als 
Felder, da sie aus einer Aneinanderreihung mehrerer Speicherplätze be- 
stehen. Auf die einzelnen Elemente eines Feldes kann über den Index zuge- 
griffen werden, der in Klammern nach dem Variablennamen angegeben wird. So 
bezeichnet im obigen Beispiel X$(3) die dritte Textzeile der insgesamt 25 
Zeilen. Der Index kann somit als Feldnummer verstanden werden. 


3.9 PEEK,- PURE :ufid FRE 


Die Befehle PEEK, POKE und FRE haben eine besondere Funktion. 

Mit PEEK kann der Inhalt eines Speicherplatzes gelesen werden. Der 
Speicherplatz wird dabei nicht als Name, sondern als Zahl angegeben. Sämt- 
liche Speicherplätze des Arbeitsspeichers sind nämlich mit einer Nummer 
versehen. 

Mit dem Befehl POKE kann auf einen beliebigen Speicherplatz des Ar- 
beitsspeichers ein Wert geschrieben werden. Der Speicherplatz wird bei 
POKE als Nummer angegeben. 

Bei dem später vorgestellten Textprogramm wird der eingegebene Text in 
den Arbeitsspeicher gespeichert. Mit dem Befehl FRE kann nachgesehen wer- 
den, wie groß der noch zur Verfügung stehende freie Arbeitsspeicher ist. 


4 Ein erster Anfang 


Bevor man überhaupt mit dem Schreiben eines Programms beginnt, sollte man 
sich genau über den Leistungsumfang des Programms klar werden. Dieser 
Vorgang geschieht bei der Erstellung eines 'Pflichtenheftes' oder zur Fest- 
legung der "Anforderungsdefinition' für ein Programm. Das Pflichtenheft 
bildet in der kommerziellen EDV die Vertragsgrundlage bei EDV-Rechtsge- 
schäften. Wir wollen es hier zwar nicht zu ernst nehmen, aber wir sollten 
das Pflichtenheft doch dazu benutzen, um den Leistungsumfang eines Text- 
systems festzulegen. Gehen wir einmal von übergeordneten Punkten ins De- 
tail. Diese Vorgehensweise wird "schrittweise Verfeinerung' genannt. Sie 
ist unter der Bezeichnung 'stepwise refinement' in dem Bereich des Soft- 
ware-Engineering bekannt. Das Software-Engineering befaßt sich mit der 
Rationalisierung und sinnvollen Unterstützung der Programmentwicklung. 
Das Software-Engineering ist eine noch sehr junge Wissenschaft, die zu dem 
Bereich Informatik gehört. 

Von einem Textverarbeitungsprogramm werden wir erwarten, daß wir Texte 
in einen Computer eingeben und danach in gewünschter Form wieder ausgeben 
können. Eine weitere Anforderung an ein solches Programm wäre, Text spei- 
chern und wieder abrufen zu können. Diese Anforderungen allein würden den 
Einsatz eines Computers zur Textverarbeitung noch nicht rechtfertigen. 
Eine gute Schreibmaschine und ein guter Kopierer könnten unsere Anfor- 
derungen fast vollständig erfüllen. Bestenfalls würden wir auf eine Spei- 
cherschreibmaschine zurückkommen. Der große Vorteil eines Computers kommt 
nämlich erst dann zur Geltung, wenn Texte be- und verarbeitet werden sol- 
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len. Das soll ja eigentlich auch der Inhalt dieses Buches sein. Was unter 


Textbe- und -verarbeitung zu verstehen ist, werden wir später ausführlich 
besprechen. Fassen wir zunächst einmal die obigen Punkte zusammen: 


1. Text eingeben. 

2. Text ausgeben. 

3. Text speichern. 
4. Text abrufen. 

5. Text bearbeiten. 
6b. Text verarbeiten. 


Mit dieser Gliederung bzw. Stichwortsammlung haben wir bereits den groben 
Rahmen unseres Textverarbeitungsprogramms festgelegt. 


4.1 Menüsteuerung 


Ein gutes Programm muß zwei Anforderungen genügen: Es muß benutzerfreund- 
lich und gut gegliedert sein. "'Benutzerfreundlichkeit' bedeutet, daß das 
Programm leicht zu bedienen ist und es keiner langen Einarbeitungszeit 
bedarf, um mit dem Programm umgehen zu können. Damit müssen die Kommandos 
des Programms selbsterklärend sein, und der Benutzer sollte durch das 
Programm geführt werden. Mit einem guten Programm wird somit auch ein um- 
fangreiches Bedienungshandbuch überflüssig. Ein Programm ist dann gut und 
übersichtlich gegliedert, wenn es in einzelne, für sich selbständige 
Programmstücke unterteilt werden kann. Nur dadurch ist es möglich, das 
Programm ohne weiteres nachträglich zu ändern oder zu erweitern. Man sollte 
nicht den Aufwand unterschätzen, der notwendig ist, um ein Programm zu 
warten. Unter der "Wartung! eines Programms versteht man die laufende 
Anpassung des Programms an nachträgliche Änderungen des Anforderungspro- 
fils. Wie jedes Produkt, ist auch ein Programm einem Lebenszyklus unter- 
worfen. Der Lebenszyklus eines Produktes beginnt mit dem Entwurf dieses 
Produktes und endet bei dem Verwerfen desselben. Man kommt zwangsläufig 
zu einem guten Programm, wenn man die einzelnen Möglichkeiten, die ein 
Programm dem Benutzer bieten soll (Services), zu sogenannten 'Menüs' zu- 
sammenfaßt und diese Menüs als selbständige Programm-Module programmiert. 
Ein Menü ist somit nichts anderes, als die Zusammenfassung logisch zu- 
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sammengehöriger Möglichkeiten eines Programms. Innerhalb eines Menüs kann 
der Benutzer dann unter verschiedenen Möglichkeiten wählen. Zur besseren 


Übersicht sollten die Menüs hierarchisch gegliedert sein. Man erreicht da- 
durch eine Vereinfachung bei der Benutzung des Programms. Das hierarchisch 
an der Spitze stehende Menü nennt man das 'Hauptmenü'. In diesem Haupt- 
menü werden die Grundfunktionen eines Programmsystems festgelegt. Das 
Hauptmenü für unseren Fall haben wir bereits in dem vorangegangenen Ab- 
schnitt erarbeitet. Mit insgesamt sechs Punkten haben wir die Grundfunk- 
tionen unseres Textverarbeitungssystems festgelegt. Diese Grundfunktionen 
können wir dann weiter verfeinern und näher spezifizieren. Wir kommen so 
zu den Untermenüs. Bevor wir jedoch zu sehr ins Detail gehen, sollten wir 
erst einmal das Programm zur Steuerung des Hauptmenüs schreiben. 


188 PRINT" 

185 PRINT "HAUPTMENUE" 

118 PRINT Yen "PRINT :PRINT 
115 PRINT"I1 — TEXT EINGEBEN" PRINT 
128 PRINT"2 - TEXT AUSGEBEN":PRINT 
125 PRINT"3 —- TEXT SPEICHERN" :PRINT 
138 PRINT'"'4 - TEXT ABRUFEN" :PRINT 
135 PRINT"S ‚= TEXT BEARBEITEN" :PRINT 
148 PRINT"& - TEXT VERARBEITEN" :PRINT 
145 PRINT:PRINT 

158 INPUT "KENNZIFFER EINGEBEN" ;K 
155 IF NOTCK>=1 AND K<=6) THEN 188 
168 PRINT"R" 

165 ON K SOTO 10898,2088, 3808, 4900 ,5008,68686 
1888 PRINT"TEXT EINGEBEN" 

1905 PRINT Henn ":PRINT 
1818 SOTO 188 

2888 PRINT"TEXT AUSSEBEN" 

2983. PRINT een PRINT 
2818 SOTO 188 

3888 PRINT'"TEXT SPEICHERN" 

SB) PRIHTY Free ne PRENT 
3818 GSOTO 188 

4888 PRINT"TEXT ABRUFEN” 

4885: PRINT — 7 "SPRINT 

4918 GOTO 108 

>888 PRINT"TEXT BEARBEITEN" 

>985 PRINT ——— nn "SPRINT 
5818 GOTO 188 

6888 PRINT"TEXT VERARBEITEN" 

BB PRINT Ver au "SPRINT 
6818 SOTO 188 
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4.2 Die Programmierung des Hauptmenüs 


Nachdem wir die Leistungsmerkmale des Textprogramms bestimmt haben, können 
wir auch das Rahmenprogramm schreiben. Das Rahmenprogramm besteht aus dem 
'Hauptmenü', das nach der Methode des "stepwise refinement' um die ent- 
sprechenden Programm-Module ergänzt wird. Dieser Programmteil ist im Pro- 
gramm P7 zu sehen. Die Anweisung mit der Zeile 100 löscht den Bildschirm. 
In der Programmliste sehen Sie ein weißes Herz auf schwarzem Untergrund. 
Dieses Zeichen erzeugen Sie, indem Sie die SHIFT-Taste und die auf der 
Tastatur sich rechts oben befindende CLR/HOME-Taste drücken. Danach folgt 
in den Zeilen 105-140 der Ausdruck des Hauptmenüs. Bei der Zeilennumerie- 
rung ist ein Intervall > 1 gewählt worden, damit nachträglich weitere 
Anweisungen eingefügt werden können. Wie Sie sehen, ist die Gliederung so 
übernommen worden, wie wir sie vorher erarbeitet haben. Durch die Anwei- 
sung in Zeile 145 werden zwei Leerzeilen ausgedruckt. Diese beiden Leer- 
zeilen bewirken, daß sich die Aufforderung zur Eingabe der Kennziffer ein 
wenig von dem eigentlichen Menü optisch absetzt. Geben Sie das Programm 
P7 ein, und starten Sie anschließend dieses Programm. Durch die Anweisung 
in Zeile 150 werden Sie aufgefordert, die Kennziffer einzugeben. Ent- 
sprechend der Möglichkeit des Programms, die angewählt werden soll, muß 
die entsprechende Kennziffer eingegeben werden. So ist beispielsweise die 
Eingabe einer '2' erforderlich, wenn der Text ausgegeben werden soll. 
Durch die Anweisung mit der Nummer 155 wird geprüft, ob eine gültige 
Kennziffer eingegeben wurde. Die Kennziffer muß nämlich in dem Bereich 
zwischen 1 und 6 liegen. Wenn diese Bedingung nicht erfüllt ist, springt 
der Rechner zur Anweisung mit der Nummer 100. Das Menü wird so lange aus- 
gegeben, bis eine gültige Kennziffer eingetippt wird. 

Am Anfang werden wir die einzelnen Programme sehr ausführlich be- 
sprechen, damit sich auch der Leser ohne Vorkenntnisse langsam aber gründ- 
lich in das Thema Textverarbeitung einarbeiten kann. Testen Sie deshalb 
sorgfältig die einzelnen Programme aus. Geben Sie die Programme nach der 
Liste ein, und 'spielen' Sie ein wenig mit den Programmen, damit Sie 
sehen, wie der Rechner reagiert. Bei der vorliegenden Lösung des Programms 
P/ ist es beispielsweise etwas unbefriedigend, daß bei der Eingabe einer 
ungültigen Kennziffer das Menü noch einmal angezeigt wird. Besser wäre es, 
wenn der Benutzer auf seinen Fehler hingewiesen würde, der Rechner die 
Meldung "FALSCHE KENNZIFFER" ausgeben und danach erneut nach der Kennzif- 


30 Die Programmierung des Hauptmenüs 


fer fragen würde. Ändern Sie das Programm doch einmal selbst entsprechend 
um! Sollte es noch Unklarheiten geben, können Sie in den einführenden Kapi- 
teln 1-3 nachschlagen oder ein geeignetes BASIC-Programmierlehrbuch zu Rate 
ziehen. 

Wenn eine gültige Kennziffer eingegeben wird, wird das Programm mit 
der Zeilennummer 160 fortgesetzt. Durch die Anweisung 160 wird der Bild- 
schirm wiederum gelöscht. Mit der Anweisung 165 folgt ein berechneter 
Sprungbefehl. Wenn die Kennziffer K den Wert 1 hat, wird das Programm bei 
der Zeile 1000, für K gleich 2 bei der Zeile 2000 usw. fortgesetzt. Das 
bedeutet, daß von Zeile 1000 bis 1999 der Programm-Modul steht, der die Ein- 
gabe des Textes gestattet. Von Zeile 4000-4999 steht dann beispielsweise 
der Programm-Modul, mit dem es möglich ist, einen auf der Datassette oder 
auf der Diskette gespeicherten Text wieder abzurufen. Sie sehen, daß auf 
diese Art und Weise das Programm sehr gut strukturiert werden kann. Solch 
ein Programm wird auch "modular aufgebautes Programm' genannt, da es aus 
einzelnen in sich abgeschlossenen Modulen besteht. Bei Anwendung dieser 
Technik bleiben auch lange und komplizierte Programme immer übersichtlich. 
Jeder Modul ist so aufgebaut, daß auf dem Bildschirm zunächst angezeigt 
wird, welcher Modul angewählt worden ist. Wenn beispielsweise für die 
Kennziffer K eine 2 eingegeben wird, erscheint durch die Anweisung mit 
der Nummer 2000 der Text "TEXT AUSGEBEN'. Danach folgt die Ausführung 
dieses Programmteils. Da wir diesen Programmteil noch nicht schreiben 
wollen und können, springen wir einfach mit der Zeile 2010 wieder zu un- 
serem Hauptmenü zurück. Das geschieht mit dem unbedingten Sprungbefehl 
GOTO 100. In dem vorliegenden Programm P7 haben wir durch diese Programm- 
struktur die einzelnen Menüs bereits vorgebildet. Wir brauchen das Pro- 
gramm nur noch zu erweitern, indem wir nach und nach die Menüs 1-6 pro- 
grammieren. Starten Sie das Programm, geben Sie eine Kennziffer ein, und 
drücken Sie die RETURN-Taste! Was geschieht? 

Auf den ersten Blick scheint nichts zu passieren! Wenn man sich das 
Geschehen am Bildschirm etwas genauer ansieht, fällt auf, daß der jeweilige 
Menüname wie z. B. "TEXT SPEICHERN! bei Eingabe der Kennziffer 3 ganz kurz 
erscheint und danach von dem Text des Hauptmenüs überschrieben wird. Pro- 
bieren Sie es noch einmal. Schauen Sie sich den Bildschirm ganz genau an. 
Dieser Programmablauf ist sicherlich nicht sinnvoll. Es wäre besser, wenn 
der Benutzer einen Hinweis bekäme, daß das betreffende Menü noch nicht 
verfügbar ist. Nach der Ausgabe dieser Meldung müßten wir die Ausführung 
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des Programms anhalten, damit wir genug Zeit haben, um den Text lesen zu 
können. Das läßt sich dadurch erreichen, indem der Anwender des Programms 
die Frage beantworten muß, ob die Ausführung des Programms weiter fort- 
geführt werden soll. 

Sehen Sie sich das Programm P8 an. Dieses Programm ist durch Erwei- 
terung des Programms P7 entstanden. Es sind hier allerdings zwei Verbes- 
serungen gegenüber P7 vorgenommen worden. Wir wollen einmal als Beispiel 
für alle Menüs das Menü 1 besprechen. Zu den Anweisungen mit den Nummern 


188 PRINT"E” 

185 PRINT "HAUPTMENUE" 

118 PRINT "memmnuuune "PRINT :PRINT 
115 PRINT”"1 - TEXT EINGEBEN": PRINT 
128 PRINT"2 - TEXT AUSGEBEN" :PRINT 
125 PRINT'"3 - TEXT SPEICHERN" :PRINT 
138 PRINT"4 - TEXT ABRUFEN” :PRINT 
135 PRINT"S5 - TEXT BEARBEITEN" :PRINT 
148 PRINT"6 - TEXT VERARBEITEN" :PRINT 
143 PRINT"? - PROSRAMM BEENDEN” :PRINT 
145 PRINT :PRINT 

158 INPUT "KENNZIFFER EINGEBEN" ;K 
155 IF NOT<CK>=1 AND K<=7) THEN 188 
168 PRINT'"R” 

165 ON K SOTO 1008,2088,3808,49988,5008,6988, 7888 
1888 PRINT'"TEXT EINGEBEN" 

zB PRINT re — "SPRINT 

1886 PRINT"NOCH NICHT VERFUESBAR" 
1887 INPUT"WEITER <(J/WD";A$ 

1888 IF A$<>"J" THEN 18087 

1818 SOTO 188 

2888 PRINT"TEXT AUSGEBEN" 

2885 PRINT"——„-—unnenunn ":PRINT 

2886 PRINT"NOCH NICHT VERFUEGBAR'" 
2887 INPUT"WEITER (J/ND";A$ 

2888 IF A$<C>"J”" THEN 28087 

2818 GSOTO 188 

3888 PRINT"TEXT SPEICHERN" 

885 PRINT" "SPRINT 
3886 PRINT"NOCH NICHT VERFUESBAR" 
3887 INPUT"WEITER <J/ND";A$ 

3888 IF n$<c>"J'" THEN 3897 

3818 GSOTO 188 

4888 PRINT"TEXT ABRUFEN" 

4885 PRINT nn ":PRINT 
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4886 PRINT"NOCH NICHT VERFUESBAR" 
48987 INPUT"WEITER (J/ND";A$ 

4888 IF A$<c>"J" THEN 4887 

4818 GOTO 188 

5888 PRINT"TEXT BEARBEITEN" 

a: Nennen "SPRINT 
5886 PRINT"NOCH NICHT VERFUESBAR" 
5887 INPUT"WEITER (J/W";A$ 

5888 IF A$T?’"J" THEN 5887 

5818 GSOTO 188 

6888 PRINT"TEXT VERARBEITEN" 

6885: PRINT" mamma mm msn anna nn nn ":PRINT 
6886 PRINT"NOCH NICHT VERFUESBAR" 
6887 INPUT"WEITER <J/ND";RA$ 

6888 IF A$<C>"J" THEN 6987 

6818 GOTO 188 

7888 PRINT"PROGRAMM BEENDET" 

7818 END 


Programm P 8 


1000, 1005 und 1010 des Menüs 1 sind noch die Anweisungen 1006, 1007 und 
1008 hinzugekommen. Der Benutzer wird mit der Anweisung 1006 darauf hin- 
gewiesen, daß dieses Menü noch nicht verfügbar ist. Mit der Anweisung 1007 
wird die Frage gestellt, ob die Ausführung des Programms fortgesetzt wer- 
den soll. Der Benutzer muß die Frage mit 'J' für JA oder mit 'N' für NEIN 
beantworten. Die Anweisung mit der Nummer 1008 prüft nach, wie der Benut- 
zer diese Frage beantwortet hat. Die Beantwortung der Frage wird auf die 
Variable mit dem Namen A$ gespeichert. Wenn diese Variable den Wert JA hat, 
wird das Programm mit der Anweisung 1010 fortgesetzt. Die Anweisung 1010 
ist ein unbedingter Sprungbefehl zur Anweisung mit der Nummer 100. Das be- 
deutet, daß die Ausführung des Programms fortgesetzt wird und das Haupt- 
menü erneut angezeigt wird. Wird die Frage nicht mit 'J' beantwortet, wird 
die Ausführung des Programms bei der Anweisung 1007 fortgesetzt. Das be- 
deutet wiederum, daß die Frage erneut gestellt wird, bis die Beantwortung 
der Frage mit 'J' erfolgt. Was geschieht nun aber, wenn die Frage nicht 
mit JA oder NEIN ('J' oder 'N') beantwortet wird? Probieren Sie es ein- 
fach einmal aus. Versuchen Sie eine Erklärung dafür anhand des Programms 
zu finden. Wenn Sie ganz korrekt sein wollen, müssen Sie also überprüfen, 
ob ein 'J' oder ein 'N' eingegeben wird. Anderenfalls sollte auch hier 
wieder (ähnlich wie bei Programm P7 erläutert) die Meldung "FALSCHE EIN- 
GABE, ES DARF NUR EIN 'J' ODER EIN 'N' EINGEGEBEN WERDEN" ausgegeben 
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werden. Dadurch wird der Benutzer nämlich darauf aufmerksam gemacht, daß 
ein Eingabefehler vorliegt. 

Es wird Ihnen bei dem Programm P7 sicherlich aufgefallen sein, daß 
Sie dieses Programm nicht beenden können, da Sie - wie man im Jargon 
sagt - nicht "aus der Schleife herauskommen'. Diese Schleife wird von den 
Anweisungen 100 und 155 umrahmt. Das Programm P7 kann deshalb nur beendet 
werden, indem die RUN/STOP-Taste betätigt wird oder das Programm durch 
gleichzeitiges Drücken der RUN/STOP- und der RESTORE-Taste abgebrochen 
wird. So sollte normalerweise kein Programm beendet werden müssen. Deshalb 
ist in dem Hauptmenü des Programms P8 ein weiteres Menü mit der Kennziffer 
7 vorgesehen, mit dem das Programm beendet werden kann. Wenn die Kennzif- 
fer 7 eingegeben wird, springt der Rechner durch den berechneten Sprung- 
befehl in Zeile 165 zu der Programmanweisung mit der Nummer 7000. Dort 
wird die Meldung "PROGRAMM BEENDET' ausgegeben und der Rechner trifft 
anschließend in Zeile 7010 auf den Befehl END. Damit wird die Ausführung 
des Programms abgebrochen. 


4.3 Mit der Unterprogrammtechnik geht es besser 


Schauen Sie sich das Programm P8 noch einmal in aller Ruhe genau an. Dabei 
wird Ihnen auffallen, daß einige Programmzeilen sechsmal wiederholt wurden. 
Es handelt sich um die Anweisungen 


PRINT "NOCH NICHT VERFUEGBAR" 
INPUT "WEITER (J/N)";A$ 
IF AS<C>"I"  THEN oo 


Wenn Sie in einem Programm etwas Vergleichbares finden, sollte es Ihnen 
sofort "verdächtig' vorkommen. In den meisten Fällen kann das Programm 
dann nämlich drastisch vereinfacht werden. Durch diese Vereinfachung wird 
nicht nur Speicherplatz gespart, sondern das Programm wird auch übersicht- 
licher und wartungsfreundlicher. Für den vorliegenden Fall bietet sich 
die Unterprogrammtechnik an. Da es sich immer um die gleichen Anweisungen 
handelt, ist es sinnvoll, diese Anweisungen aus dem Programm zu eliminie- 
ren und dann daraus ein separates Programm (ein Unterprogramm) zu schrei- 
ben. Das Unterprogramm sollte zur besseren Übersicht an den Schluß des 
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Programms gesetzt werden. Sinnvollerweise beginnen wir mit der Zeilen- 
nummer 8000. Das Programm P9 zeigt die Vereinfachung des Programms P8 


188 PRINT'R”" 

185 PRINT "HAUPTMENUE" 

138 PRINT "ars ":PRINT:PRINT 
115 PRINT"1 - TEXT EINGEBEN" :PRINT 
128 PRINT"2 - TEXT AUSGEBEN” :PRINT 
125 PRINT"3 - TEXT SPEICHERN" :PRINT 
138 PRINT”4 - TEXT ABRUFEN” :PRINT 
135 PRINT"S - TEXT BEARBEITEN" :PRINT 
148 PRINT'"6 - TEXT VERARBEITEN" :PRINT 
143 PRINT"? - PROGRAMM BEENDEN" :PRINT 
145 PRINT:PRINT 

158 INPUT "KENNZIFFER EINGEBEN” ;K 
155 IF NOTCK>=1 AND K<=7) THEN 188 
168 PRINT" 

165 ON K 60T0 1888,2808, 3098, 4808 ,5808,6808,7088 
1888 PRINT"TEXT EINGEBEN" 

1885 PRINT" ---------- - -- "PRINT 
1886 GSOSUB 8888 

1818 SOTO 188 

2888 PRINT’"’TEXT AUSGEBEN" 

2885 PRINT" ------—nununn ":PRINT 
2886 GOSUB 8888 

2818 SOTO 188 

3888 PRINT"TEXT SPEICHERN" 

3885: PRINT"--------ununnn ":PRINT 
3886 GOSUB 8888 

3818 GOTO 188 

4888 PRINT"TEXT ABRUFEN” 

4885 PRINT"-------- ":PRINT 

4886 GOSUB 8888 

4818 GOTO 188 

5888 PRINT"TEXT BEARBEITEN" 

5885 PRINT"-------- >... "SPRINT 
5886 GOSUB 8888 

5s8ei8a SOTO 188 

6888 PRINT"TEXT VERARBEITEN" 

6885 PRINT"------ en .nn ”":PRIMT 
6886 GOSUB 8888 

6818 SOTO 188 

7888 PRINT'"'PROSRAMM BEENDET” 

7818 END 

8888 REM *kUi%k 

8885 PRINT"NOCH NICHT VERFUESBAR" 
8818 INPUT"WEITER (J/ND";A$ 

8815 IF A$<C>"J" THEN 8818 

8828 RETURN 


Programm P 9 
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bei Verwendung der Unterprogrammtechnik. Da wir während der schrittweisen 
Verfeinerung des Textverarbeitungsprogramms noch weitere Unterprogramme 
schreiben werden, kennzeichnen wir den Beginn eines jeden Unterprogramms 
durch die REM-Anweisung. REM ist eine Abkürzung für REMark (= Bemerkung). 
Die 'Bemerkung', die nach REM folgt, wird vom Rechner überlesen und dient 
nur zur Kommentarisierung und Erläuterung des Programms. Wir wollen hier 
lediglich die Programme einzeln durchnumerieren, indem wir die Nummern U1, 
VU2, U3 usw. vergeben. Die Anweisungen der Zeilen 8005, 8010 und 8015 stel- 
len dann das eigentliche Unterprogramm dar. Dieses Unterprogramm kann mit 
dem Befehl GOSUB angewählt werden. Nach GOSUB ist die Zeilennummer der 
ersten Anweisung des Unterprogramms angegeben. Wie Sie sehen, wird von 
jedem Menü der Sprung in dieses Unterprogramm durchgeführt. Dazu dienen 
die Anweisungen der Zeilen 1006, 2006, 3006, 4006, 5006 und 6006. Nach 
Ausführung des Unterprogramms muß das Programm wieder mit dem Hauptpro- 
gramm fortgesetzt werden. Die Fortführung des Programms wird erzielt, in- 
dem der Rechner durch die Anweisung 8020 im Unterprogramm dazu veranlaßt 
wird, wieder zu der Stelle im Hauptprogramm zurückzuspringen, die auf den 
Unterprogrammaufruf folgt. Die Anweisung 8020 RETURN stellt somit das 
logische Ende des Unterprogramms dar. (RETURN kann mit "zurückkehren' über- 
setzt werden). Wenn das Unterprogramm U1 beispielsweise durch die Anwei- 
sung 2006 aufgerufen wird, wird nach der Ausführung des Unterprogramms 
durch die Anweisung 8020 RETURN bewirkt, daß das Hauptprogramm mit der 
Anweisung 2010 wieder fortgesetzt wird. 

Wir werden von der Unterprogrammtechnik bei der Entwicklung unseres 
Textverarbeitungsprogramms noch intensiv Gebrauch machen. Sie sollten sich 
diese Technik unbedingt aneignen, da es nur auf diese Art und Weise mög- 
lich ist, bei einem größeren Programm den Überblick zu behalten. Ein 
weiterer Vorteil ist, daß sich wiederholende Programmabschnitte nur einmal 
programmiert werden müssen. Dadurch kann sehr viel Speicherplatz gespart 
werden. 


4.4 Einfache Handhabung durch Funktionstasten 
Wenn Sie sich die Tastatur Ihres COMMODORE 64 ansehen, entdecken Sie auf 


der rechten Seite vier größere, vertikal angeordnete Tasten. Diese Tasten 
sind mit f1-f8 bezeichnet. Die Tasten sind also mit doppelter Funktion 
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belegt. Wenn Sie die oberste Taste drücken, betätigen Sie die Taste fi. 
Drücken Sie allerdings die SHIFT- und die fi-Taste, haben Sie die Taste 
f2 angewählt. Diese Tasten werden als 'Funktionstasten' bezeichnet, da mit 
diesen Tasten eine bestimmte Funktion aufgerufen werden kann. Die Hand- 
habung eines Programms kann bei Verwendung dieser Tasten sehr stark ver- 
einfacht werden. Wir wollen uns diesen Komfort, den uns der COMMODORE 64 
bietet, zunutze machen. Es bietet sich nämlich an, die einzelnen Mög- 
lichkeiten des Hauptmenüs über die Funktionstasten anzuwählen. Damit wird 
die Eingabe der jeweiligen Kennziffer und das anschließende Drücken der 
RETURN-Taste überflüssig. Zu diesem Zweck gestalten wir den Text des 
Hauptmenüs um. Schauen Sie sich das Programm P10 an. 

Anstelle der Ziffern finden Sie jetzt den Hinweis auf die jeweils zu 
drückende Funktionstaste: fi, f2, f3 usw. Die Aufforderung zum Betätigen 
der Funktionstaste geschieht durch die Anweisung mit der Nummer 150, die 
den Text "FUNKTIONSTASTE DRUECKEN' ausgibt. Wir lernen hier eine weitere 
Möglichkeit kennen, das Schriftbild auf dem Bildschirm zu gestalten. In 
dem PRINT-Befehl erscheint nach dem Anführungszeichen ein 'R' auf schwar- 
zem Hintergrund. Um dieses Zeichen zu erzeugen, müssen Sie die CTRL-Taste 
drücken, diese Taste festhalten und dann gleichzeitig die Taste RVS ON 
drücken. Die Taste RVS ON ist die gleiche Taste, die auch die Ziffer 9 und 
die sich öffnende Klammer '(' erzeugt. Die Ziffer 9 erhalten Sie, wenn 
Sie nur die Taste drücken, die sich öffnende Klammer, wenn Sie die SHIFT- 


188 PRINT" 

185 PRINT "HAUPTMENUE" 

118. .PRINTI Fern ":PRINT:PRINT 

115 PRINT"Fi - TEXT EINGEBEN" :PRINT 
128 PRINT"F2 - TEXT AUSSEBEN" :PRINT 
125 PRINT"F3 - TEXT SPEICHERN" :PRINT 
138 PRINT"F4 -— TEXT ABRUFEN" :PRINT 

135 PRINT"FS - TEXT BEARBEITEN" :PRINT 
148 PRINT"F& - TEXT VERARBEITEN" :PRINT 
143 PRINT'"'F?7 - PROGRAMM BEENDEN" : PRINT 
145 PRINT:PRINT 

158 PRINT"BFUNKTIONSTASTE DRUECKENE" 
155 SET F$:IF F$="" THEN 155 
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168 

165 

178 

175 

188 

185 

198 

195 

288 

1868 
1885 
1886 
1818 
28068 
28085 
20886 
2818 
3888 
3885 
3886 
3818 
4088 
4885 
4886 
4818 
5888 
5885 
5886 
5818 
6888 
68885 
6086 
6818 
7888 
79818 
8888 
8885 
8818 
8815 
8828 
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Taste und die Taste drücken und die RVS ON-Funktion, 


Taste und die Taste 


RVS ON bedeutet soviel wie REVERSE ON. 
stellung des Schriftbildes umgekehrt werden soll, 


F=ASC<(F$) :PRINT 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


IF 
IF 
IF 
IF 
IF 
IF 


F=133 
F=134 
F=135 
F=136 
F=137 
F=138 
IF F=139 
IF F=148 
PRINT"TEXT 


PRINT"----- 


GOSUB 8888 
GOTO 188 
PRINT"TEXT 


PRINT"----- 


GOSUB 8888 
SOTO 188 
PRINT"TEXT 


PRINT"----- 


GOSUB 8888 
SoToO 188 
PRINT'"TEXT 


PRINT"----- 


GOSUB 8888 
GOTO 108 
PRINT"TEXAT 


PRINT"----- 


GOSUB 88988 
SOTO 188 
PRINT"TEXT 


GOSUB 8888 
SoToO 188 
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a 
1888 
3888 
5888 
7888 
2888 
4808 
68088 
188 

E INSEBEN” 
:PRINT 


:PRINT 


SPEICHERN" 
= - "PRINT 


ABRUFEN" 
= - "PRINT 


BEARBEITEN" 
= "PRINT 


VERARBEITEN” 


PRINT"PROSRAMM BEENDET" 


END 
REM *Ui%* 
PRINT"NOCH 


NICHT VERFUESBAR" 


INPUT"WEITER (J/ND";A$ 


IF ASCI"J" 
RETURN 


drücken. 


THEN 8818 


wenn Sie die CTRL- 


heiß, daß die Dar- 
h. die Schrift wird 


IReverse! 
d. 


schwarz auf hellem Untergrund dargestellt. Nachdem der Text FUNKTIONSTASTE 


DRUECKEN ausgegeben 


modus zurückschalten. 


worden 


ist, 
Dazu müssen wir die RVS OFF-Taste drücken. 


wollen wir wieder in den normalen Ausgabe- 
Diese 
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Taste befindet sich rechts neben der RVS ON-Taste in der obersten Reihe 
der Tastatur. Starten Sie das Programm, und sehen Sie sich das Ergebnis 
an. In dem Programm P9 wurde über die INPUT-Anweisung die Kennziffer auf 
den Speicherplatz K geschrieben. Bei der INPUT-Anweisung wird der einge- 
tippte Wert erst dann der Variablen übergeben, wenn die RETURN-Taste ge- 
drückt wird. Das Drücken der RETURN-Taste kann sich allerdings als lästig 
erweisen. Wie in dem vorliegenden Fall, erfordern viele Programme Eingaben, 
die nur aus einem einzigen Zeichen bestehen. Im Gegensatz zu den anderen 
Eingabemöglichkeiten, ist hier die Eingabe eindeutig nach diesem einzigen 
Zeichen beendet. Der Computer könnte hier selbständig die RETURN -Taste 
drücken, da die Eingabe eindeutig nach einem Zeichen abgeschlossen ist. 
Das ist mit dem GET-Befehl möglich. Wird anstelle des INPUT-Befehls der 
GET-Befehl zur Eingabe benutzt, erwartet der Rechner die Eingabe eines 
einzelnen Zeichens. Im Gegensatz zur INPUT-Eingabeanweisung muß hier nicht 
mehr die RETURN-Taste gedrückt werden. Wir müssen also lediglich eine 
einzige Funktionstaste drücken. Die Eingabeanweisung besteht aus der Zeile 
155. Bei der GET-Anweisung fragt der Rechner ständig ab, ob eine Taste 
gedrückt wurde. Aus diesem Grund ist es notwendig, die GET-Anweisung in 
eine "'Schleife' einzubinden. Nach der GET-Anweisung folgt nämlich eine 
IF-Abfrage. Mit dieser Abfrage wird geprüft, ob überhaupt eine Taste 
gedrückt wurde. Ist das nicht der Fall, wird das Programm mit der Anwei- 
sung 155 so lange fortgesetzt, bis eine beliebige Taste gedrückt wird. 
Da mit der GET-Anweisung nur ein Zeichen eingegeben werden kann, muß als 
Variablenname eine Textvariable angegeben werden. Denken Sie bitte in 
diesem Zusammenhang daran, daß zwischen dem Zeichen "5" und der Zahl ’5 
unterschieden werden muß. Wir haben dieses Problem bereits in den ein- 
führenden Kapiteln angesprochen. Sollte Ihnen der Unterschied noch nicht 
klar sein, ist es ratsam, in einem BASIC-Programmierlehrbuch nachzuschla- 
gen. 

Jedes Zeichen der Tastatur ist durch einen Code verschlüsselt. In 
Tabelle 2 des Kapitels 3 finden Sie die ASCII-Code Tabelle. Sie sehen 
dort, daß die Funktionstaste f1 beispielsweise dem ASCII-Code 133 ent- 
spricht. Um zu prüfen, welche Funktionstaste gedrückt wurde, stellen wir 
erst einmal den ASCII-Code der gedrückten Funktionstaste fest. Das er- 
reichen wir mit der Funktion ASC. Durch die Anweisung 160 wird der ASCII- 
Code der gedrückten Funktionstaste der Variablen F zugewiesen. Anschlie- 
ßend wird der Inhalt des Bildschirms wieder gelöscht. Mit den Anweisungen 
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165-200 wird geprüft, welche Funktionstaste gedrückt wurde. In Abhängig- 
keit von der gedrückten Funktionstaste wird dann zu dem entsprechenden 
Programm-Modul verzweigt. 

Machen Sie sich mit der Funktionsweise des Programms P10 vertraut, 
indem Sie das Programm eingeben und starten. Was passiert, wenn Sie die 
Funktionstaste 8 drücken? Diese Funktionstaste ist in dem Hauptmenü nicht 
erwähnt! Was geschieht, wenn Sie anstelle einer Funktionstaste irgendeine 
andere Taste der Tastatur drücken? Sehen Sie sich das Ergebnis an, und 
versuchen Sie, die möglicherweise "unerfreuliche' Überraschung zu ver- 
hindern! Sie werden dabei feststellen, daß ein großer Aufwand notwendig 
ist, um ein Programm gegen sämtliche Bedienungsfehler abzusichern. Man muß 
in der Praxis sicherlich einen vernünftigen Kompromiß finden. Trotzdem 
sollte man nicht versucht sein, diesen zu großzügig auszulegen und sehr 
viel Vertrauen in den Anwender eines Programms zu setzen, in der Hoff- 
nung, das "schon nichts schiefgehen wird'. Versuchen Sie also, das Pro- 
gramm P10 noch ein wenig zu verbessern. Im folgenden Abschnitt werden Sie 
sehen, welche Kleinigkeiten verbessert werden können. 


4.5 Die Ein- und Ausgabe von Texten wird programmiert 


Haben Sie eine Verbesserungsmöglichkeit für Programm P10 gefunden? 

Bisher haben wir immer die Anwahl des jeweiligen Menüs mit dem be- 
rechneten Sprung durchgeführt. Ihnen ist sicherlich aufgefallen, daß die 
Aneinanderreihung der verschiedenen IF-Abfragen (Zeilen 165-200 des Pro- 
gramms P10) sehr umständlich ist. Es besteht kein Grund, den berechneten 
Sprungbefehl nicht zu benutzen. Wir müssen nur darauf achten, daß die 
Sprungziele in der richtigen Reihenfolge notiert werden. Wir werden ein- 
mal das Programm P11 durchsprechen. Mit der Anweisung 162 wird geprüft, 
ob eine gültige Funktionstaste gedrückt wurde. Entsprechend der Angabe 
des Hauptmenüs sind nur die Funktionstasten f1 bis f7 zulässig. Wir über- 
prüfen also, ob der Wert für die Variable F in dem Bereich von 133 bis 
139 einschließlich liegt. Anderenfalls wird (wie beispielsweise bei dem 
Programm P7) das Hauptmenü erneut angezeigt. Den berechneten Sprungbefehl 
können Sie nach wie vor anwenden. Wir müssen nur einen kleinen Trick be- 
nutzen, indem wir von dem Wert der Variablen F die Zahl 132 subtrahieren. 
Wir erhalten den Wert 1, wenn die Funktionstaste fi gedrückt wurde, den 
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Wert 2 für die Funktionstaste f3, den Wert 3 für die Funktionstaste f5, 
den Wert 4 für die Funktionstaste f7, den Wert 5 für die Funktionstaste f2 
usw. Danach folgt - wie bereits besprochen - das uns bekannte Programm. 

Halt! Wenn Sie sich das Programm P11 genau ansehen, werden Sie bemer- 
ken, daß bereits zwei Menüs programmiert worden sind. Es handelt sich da- 
bei um das Menü 1 "TEXT EINGEBEN" und das Menü 2 "TEXT AUSGEBEN'. In 
Kapitel 4 wollen wir uns mit einer einfachen Ausführung dieser beiden 
Menüs begnügen. Wir werden später komfortablere und leistungsfähigere 
Ein- und Ausgabemenüs kennenlernen. Sie sollten sich aber ungeachtet die- 
ser Tatsache darum bemühen, das vorliegende Programm zu verstehen. Es wird 


18 DIM T$<188) 

188 PRINT"”R” 

185 PRINT "HAUPTMENUE" 

118 PRINT "m -isnnue ":PRINT:PRINT 

115 PRINT"Fi1 - TEXT EINGEBEN" :PRINT 
128 PRINT"F2 - TEXT AUSSEBEN" :PRINT 
125 PRINT"F3 - TEXT SPEICHERN" :PRINT 
138 PRINT"F4 - TEXT ABRUFEN" :PRINT 

135 PRINT"FS5 - TEXT BEARBEITEN" :PRINT 
148 PRINT"F& - TEXT VERARBEITEN" :PRINT 
143 PRINT"F? - PROGRAMM BEENDEN" :PRINT 
145 PRINT:PRINT 

158 PRINT"WFUNKTIONSTASTE DRUECKENM'" 
155 GET F$: IF F$="" THEN 155 

168 F=ASC(F$) :PRINT "Gi" 

162 IF NOT<F?=133 AND F<=139) THEN 188 
165 ON F-132 GOTO 18808 ,3008 ‚5008, 7008 ,20908, 4808 ,68988 
1888 PRINT"TEXT EINGEBEN" 

1885 PRINT" ----------- -- ":PRINT 

1818 NZ=8 

1828 NZ=NZ +1 

1838 PRINT"W" ; NZ; "@" 

1848 INPUT T$<CNZ)D 

1858 IF T$C(NZDICD"#HER" THEN 1828 

1868 GOTO 188 

2888 PRINT"TEXKT AUSGEBEN" 

2885 PRINT"----------- -- "PRINT 

2818 FOR I=1 TO NZ 

2828 PRINT T$<D 

2836 NEXT I 

2848 PRINT: INPUT"MEITER <J/WmD";A$ 

2858 IF A$<c>"J" THEN 2848 

2868 SOTO 188 

3888 PRINT"TEXT SPEICHERN” 

3885 PRINT"-------------- ":PRIMT 

3886 GOSUB 8888 

3818 GOTO 188 
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4888 PRINT"TEXT ABRUFEN” 

4885 FRINTT men "IPRMIMT 
48086 GOSUB 8888 

4818 SOTO 188 

5888 PRINT"TEXT BEARBEITEN" 

BB PRINT? AAmemmeemumune ":PRINT 
>s8086 GOSUB 8888 

5818 SOTO 188 

6888 PRINT"TEXT VERARBEITEN" 

6883 PRINT Femme "PRINT 
6886 GOSUB 8888 

8818 SOTO 188 

7888 PRINT"PROGRAMM BEENDET" 

7818 END 

8888 REM %*Ui%x 

8885 PRINT"NOCH NICHT VERFUESBAR” 
8818 INPUT"WEITER <J/ND";,A$ 

8815 IF ASC>’"J" THEN 88919 

8828 RETURN 


Programm P 11 


Ihnen dann leichter fallen, die folgenden Programme zu verstehen, da die- 
se auf dem hier gelernten Wissen aufbauen. 

Wir sehen uns zunächst das Eingabemenü an. Das Eingabemenü umfaßt die 
Programmzeilen 1000-1060. Zur Eingabe des Textes haben wir ein Textfeld 
mit dem Namen T$ reserviert. Dieses Textfeld kann maximal 100 Elemente um- 
fassen. Wenn wir die Anzahl der Elemente erhöhen wollen, müssen wir nur 
die DIM-Anweisung mit der Zeilennummer 10 entsprechend ändern. Auf 
jedem Element kann eine Textzeile gespeichert werden, die maximal 255 
Zeichen umfassen darf. Das bedeutet, daß Sie über den Zeilenrand schreiben 
können. Es wird Ihnen sicherlich schon aufgefallen sein, daß eine Zeile 
auf dem Bildschirm lediglich 40 Zeichen umfaßt. Wenn Sie einen längeren 
Text eingeben, wird die Textzeile in der darauffolgenden Zeile fortge- 
setzt. Stören Sie sich nicht an diesem etwas ungewohnten Schriftbild. Es 
ist unter Umständen empfehlenswert, den COMMODORE 64 hardwaremäßig durch 
eine 80-Zeichenkarte zu erweitern. Mit dieser Karte ist es möglich, ins- 
gesamt 80 Zeichen pro Zeile darzustellen. Sie sollten allerdings beachten, 
daß das Schriftbild etwas unleserlicher wird. Prüfen Sie deshalb sorg- 
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fältig, ob sich die Investition überhaupt lohnt. 

Die einzelnen Textzeilen müssen bei der Eingabe in einer 'Schleife'! 
nacheinander auf die einzelnen Elemente des Textfeldes geschrieben werden. 
Dazu läßt man einen Zähler mitlaufen. Dieser Zähler hat bei der Eingabe 
einer Textzeile den Wert des betreffenden Elementes des Textfeldes, auf 
dem die entsprechende Textzeile gespeichert werden soll. Nach der Ein- 
gabe des Textes enthält dieser Zähler die Anzahl der eingegebenen Text- 
zeilen. Dazu setzen wir in Zeile 1010 den Wert des Zählers auf 0. Durch 
die Anweisung 1020 wird der laufende Wert des Zählers vor der Eingabe 
einer neuen Textzeile um 1 erhöht. Damit der Benutzer weiß, an welcher 
Stelle er sich bei der Texteingabe befindet, wird in Zeile 1030 die Num- 
mer der laufenden Zeile im 'Reverse' Modus ausgegeben. Dieses vergrößert 
den Bedienungskomfort des Programms, da der Benutzer genau weiß, bei 
welcher Eingabezeile er sich befindet. Mit Zeile 1040 wird dann eine Text- 
zeile auf das entsprechende Element des Textfeldes T$ eingelesen. Da wir 
die Anzahl der einzugebenden Textzeilen in den meisten Fällen nicht ken- 
nen, müssen wir uns ein Abbruchkriterium überlegen, um dem Rechner mit- 
zuteilen, wann die Eingabe des Textes beendet werden soll. Als Abbruch- 
kriterium wählen wir sinnvollerweise einen Text, der normalerweise bei 
unserer Arbeit mit dem Textprogramm nicht vorkommen wird. Wir haben hier 
die Zeichenfolge '#e#' als Abbruchkriterium gewählt. Durch den Befehl 
1050 wird abgefragt, ob das Ende der Texteingabe erreicht worden ist. Ist 
das Abbruchkriterium nicht gefunden worden, springt der Rechner zu der 
Anweisung 1020. Eine neue Textzeile kann nun eingegeben werden. Ist dagegen 
das Ende erreicht, wird wieder zu dem Hauptmenü zurückgesprungen. Der Be- 
nutzer kann sich von den dort angebotenen Menüs eines auswählen. Das Menü 
seiner Wahl kann beispielsweise die Ausgabe des Textes sein. Das Programm 
P11 enthält auch die Programmierung des Menüs 2 "TEXT AUSGEBEN', damit Sie 
sofort überprüfen können, ob der eingegebene Text auch wirklich von dem 
Programm aufgenommen worden ist. Dieses Menü ist relativ einfach zu pro- 
grammieren. Wir kennen jetzt nämlich die Anzahl der Textzeilen und können 
deshalb die FOR..NEXT-Schleife verwenden. Die Laufvariable I dieser Schlei- 
fe nimmt nacheinander die Werte 1, 2, 3 bis NZ an. Die Schleife wird von 
den Anweisungen 2010 und 2030 umrahmt. Mit der Anweisung 2020 werden dann 
die laufenden Textzeilen ausgegeben. 

Testen Sie das Programm, indem Sie einen kleinen, ca. 3 Zeilen um- 
fassenden Text eingeben. Starten Sie das Programm und drücken Sie die 
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Funktionstaste fi. Geben Sie nun folgenden Text ein: 


BASIC IST 

EINE EINFACH ZU ERLERNENDE 
PROGRAMMIERSPRACHE FUER HOBBY-COMPUTER 
#HeH 


Wenn Sie die obigen Anweisungen befolgt haben, müßten Sie auf dem Bild- 
schirm wieder das Hauptmenü sehen können. Sind Sie damit zufrieden? 

Lassen Sie sich überraschen, ob der eingegebene Text auch wirklich so 
ausgedruckt wird, wie Sie ihn eingegeben haben! Drücken Sie die Funktions- 
taste f2. Was sehen Sie jetzt auf dem Bildschirm? Es ist sicherlich nicht 
sehr sinnvoll, die Zeile '#e#' auch auszugeben, da diese Zeile nicht zu 
dem eigentlichen Text gehört. Sie sollte lediglich als Abbruchkriterium 
verwendet werden. Wir haben also schon den ersten kleinen Fehler des Pro- 
gramms entdeckt. Hätten Sie es schon vorher gewußt? Überlegen Sie einmal, 
wie Sie diesen Fehler beheben könnten. 

Wäre das Programm nach Beseitigung dieses Fehlers in Ordnung? Spielen 
Sie ein wenig mit dem Programm! Ihnen werden dann sicherlich noch weitere 
Unzulänglichkeiten auffallen. 

Können Sie mit diesem Programm Groß- und Kleinbuchstaben erzeugen? 
Sie werden natürlich von einem 'richtigen' Textverarbeitungsprogramm er- 
warten, daß Sie auch Groß- und Kleinschreibung durchführen können. Das ist 
aber noch nicht alles, was dem vorliegenden Programm fehlt. Geben Sie 
einen ganz gewöhnlichen Text ein, den Sie sich beispielsweise aus der 
Zeitung herausgesucht haben. Dieser Text wird sicherlich die Satzzeichen 
Komma und/oder Doppelpunkt enthalten. Wie reagiert das Programm in diesem 
Fall? Geben Sie einmal eine Zeile ein, die ein Komma oder einen Doppel- 
punkt enthält. Sie werden nun eine Fehlermeldung erhalten. Wie man diese 
Fehlermeldung beheben kann, werden Sie später erfahren. Wir wollen uns 
zunächst auf andere Dinge konzentrieren. Aus diesem Grund sollten Sie es 
nach Möglichkeit vermeiden, Texte einzugeben, die entweder Komma oder 
Doppelpunkt enthalten. 

Damit aber nicht genug! Dieses auf den ersten Blick doch recht einfach 
scheinende Programm enthält noch weitere unliebsame Überraschungen. Geben 
Sie einen Text ein, der ca. 30 Zeilen umfaßt. Um die Arbeit zu verkürzen, 
wählen Sie kurze Zeilen und geben Sie in jede Zeile nur ein bis zwei Worte 
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ein. Drucken Sie anschließend den Text mithilfe des Menüs Nummer 2 aus. 
Sie werden feststellen, daß der Text nach oben aus dem Bilschirm 'läuft'!. 
Aufgrund der Geschwindigkeit des vorbeilaufenden Textes werden Sie Schwie- 
rigkeiten haben, diesen lesen zu können. Sie müssen deshalb dafür sorgen, 
daß dieser Text "seitenweise' ausgegeben wird. Jede Bildschirmseite ent- 
hält nur 20 Zeilen. Das Programm sollte nach 20 Zeilen angehalten werden, 
damit der Benutzer den Text in Ruhe lesen kann. Anschließend kann dieser 
durch eine positive Beantwortung der Frage 'WEITER?' die Ausgabe des Textes 
fortsetzen. Wir haben diese Technik bzw. dieses Problem bereits in Pro- 
gramm P8 besprochen. 

Zum Schluß wollen wir einen weiteren kritischen Punkt behandeln. 
Machen Sie sich einmal die Mühe und tippen Sie einen Text ein, der mehr 
als 100 Zeilen enthält. Sie werden feststellen, daß das Programm mit einer 
Fehlermeldung abgebrochen wird, wenn Sie die Zeile 100 erreicht haben. 
Das bedeutet für Sie, daß die ganze Arbeit umsonst war und der eingegebene 
Text verloren ist. Die Fehlermeldung wird erzeugt, da Sie versuchen, mehr 
als 100 Zeilen einzugeben, obwohl Sie das Textfeld T$ nur mit 100 Elemen- 
ten vereinbart haben. Sie müssen deshalb unbedingt darauf achten, daß Sie 
den Wert von 100 Eingabezeilen nicht überschreiten. Sie sollten dem Be- 
nutzer einen Hinweis geben, wenn die hundertste Textzeile eingegeben 
worden ist und ihm mitteilen, daß der Speicher gefüllt ist und somit kein 
Platz mehr zur Verfügung steht. 

Sie sehen, daß ein scheinbar recht einfaches Programm schon eine ganze 
Menge von Problemen aufwerfen kann. Es sollte Ihnen nur gezeigt werden, 
welche Dinge ein guter Programmierer berücksichtigen muß, um sämtliche 
Fehler abzufangen, die während der Benutzung eines Programms auftreten 
können. Überlegen Sie einmal selbst, wie Sie die oben angesprochenen Pro- 
bleme lösen könnten, bevor Sie im Text weitergehen! 


5 Wir überarbeiten das Hauptmenü 


Haben Sie sich das Programm P11 richtig angesehen? Verstehen Sie sämtliche 
Anweisungen? Sie sollten mit diesem Programm etwas 'spielen', bevor Sie 
weiterlesen. Es wird Ihnen sicherlich sofort auffallen, welche Möglich- 
keiten dem Programm noch fehlen, oder - wie der Fachmann sagt - welche 
Services noch nicht implementiert sind. Denken Sie intensiv darüber nach. 
Auf diese Art und Weise wird Ihre Kreativität angeregt, und Sie können 
bei Abschluß des Buches das Programm nach Ihren eigenen Wünschen modifi- 
zieren oder erweitern. Sie lernen außerdem die Schwachstellen des Pro- 
gramms kennen und werden in der Lage sein, diese zu beheben. 

In dem Programm P12 haben wir einige Schwachstellen des Programms P11 
behoben. Wenn Sie später richtig mit dem Programm arbeiten werden, wird 
die Kapazität von 100 Textzeilen nicht mehr ausreichend sein. Wir haben 
deshalb in dem Programm P12 die Anzahl der maximal zu verarbeitenden Text- 
zeilen auf 400 erhöht. Sie können leicht durch Abänderung der DIM-Anwei- 
sung in Zeile 10 die Anzahl der möglichen Textzeilen weiter erhöhen. Sie 
sollten dabei aber an folgendes denken: Eine Textzeile kann bei dem 
COMMODORE 64 maximal 255 Zeichen umfassen. Wie der Name 'VC 64' schon 
sagt, verfügt Ihr Computer über 64 KB Speicherkapazität. Man mißt die 
Speicherkapazität in Byte. Da diese Einheit sehr klein ist, faßt man 1024 
Byte zu einem Kilo-Byte zusammen. Ihr COMMODORE 64 hat also eine Kapazität 
von 64 * 1024 Byte. Was bedeutet das? Was kann man mit einem Byte tun? 

Dazu müssen wir wissen, daß der Haupt- oder Arbeitsspeicher eines 
Rechners das Programm und die unmittelbar dazu benötigten Daten enthält. 
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18 DIM T$(488) 

28 POKE 53272,23:N2=8 

188 PRINT"U” 

185 PRINT "HAUPTMENUE” 

106 PRINT Fee ":PRINT:PRINT 

115 PRINT'"Fi1 - TEXT EINGEBEN" :PRINT 
128 PRINT"F2 - TEXT AUSSGEBEN" :PRINT 
125 PRINT'"F3 - TEXT SPEICHERN” :PRINT 
138 PRINT"'F4 - TEXT ABRUFEN" :PRINT 

135 PRINT"FS - TEXT BEARBEITEN" :PRINT 
148 PRINT'"F6 - TEXT VERARBEITEN" :PRINT 
143 PRINT'"F7 - SONDERFUNKT TIONEN": PRINT 
144 PRINT"FS - PROSRAMM BEENDEN" :PRINT 
145 PRINT:PRINT 

158 PRINT"WFUNKTIONSTASTE DRUECKENE" 
155 GET F$:IF F$="" THEN 155 

168 F=ASC<F$) :PRINT "R” 

162 IF NOT<F>=133 AND F<=148) THEN 188 
165 ON F-132 GOTO 1888,3989,5008,7008,2988,4888,6808 ,3888 
1888 PRINT"TEXT EINGEBEN" 

1885 PRINT" nnnnnnnn "IPRINT 

1828 NZ=NZ+1 

1825 IF NZ=481 THEN PRINT"%*k%* DATEI VOLL %**":FOR I=1 TO 1888:NEXT 1:60T0 1868 
1838 PRINT"’W" ; NZ; " 

1848 INPUT T$<NZD 

1858 IF T$<NZIC’H" HER" THEN 1928 

1868 NZ=NZ-1:60T0 188 

2888 PRINT"TEXT AUSSEBEN” 

2885 PRINT’—— + - > 2 nn ":PRINT 

2887 IF NZ=8 THEN:PRINT"KEIN TEXT VORHANDEN" :FOR I=1 TO 1888:NEXT 1:50T0 188 
2818 FOR I=1 TO NZ 

2828 PRINT T$<D 

2838 IF I1728<>INT<I’28) THEN 2858 

2848 PRINT: INPUT"WEITER <J/ND";A$ 

2845 IF A$<{>"J" THEN 2848 

2847 PRINT" 

2858 NEXT I 

2868 PRINT: INPUT"WEITER <J/ND" ;A$ 

2878 IF n$<>"J" THEN 20868 

2888 GOTO 188 

3888 PRINT"TEXT SPEICHERN" 

3885: PRINT ":PRINT 

3886 GOSUB 9808 

3818 GOTO 188 

4888 PRINT"TEXT ABRUFEN” 

#885 PRINTFmmmenues.n "PRINT 

4886 GOSUB 9888 

4818 GSOTO 188 

5888 PRINT"TEXT BEARBEITEN" 

985: FRINTTeeeinn nn nun ":PRINT 

5886 GOSUB 98088 

5818 GSOTO 188 

6888 PRINT"TEXT VERARBEITEN" 

6885: FRINTT- > nn ":PRINT 
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6886 GOSUB 9888 

6818 GOTO 188 

7888 PRINT"SONDERFUNKT TIONEN" 

7885 PRINT"---------------- ":PRINT 
7886 GOSUB 9888 

7818 GSOTO 188 

8888 POKE 53272,21 

8818 PRINT"PROGRAMM BEENDET" 

8828 END 

9888 REM. #Ui%* 

9885 PRINT"NOCH NICHT VERFUEGBAR" 
9818 INPUT"WEITER (J/ND" ;A$ 

9815 IF A$C>"J" THEN 9818 

9828 RETURN 


Programm P 12 


In unserem Fall würde das also bedeuten, daß das Textverarbeitungsprogramm, 
die unmittelbar dazu benötigten Daten (die Textzeilen) und die Hilfs- 
werte in dem Arbeitsspeicher abgespeichert werden müssen. Wie Sie sehen, 
steht uns nicht der gesamte Speicherplatz für unseren Text zur Verfügung. 
Wir werden später erfahren, wie wir den Speicherplatz bestimmen können, der 
uns für den Text zur Verfügung steht. Man benötigt ein Byte, um ein Zeichen 
abzuspeichern. Unter "'Zeichen' sollen hier die alphabetischen, die numeri- 
schen und die Sonderzeichen verstanden werden. Alphabetische Zeichen sind 
die Buchstaben A-Z, numerische Zeichen umfassen die Ziffern 0-9. Alpha- 
betische und numerische Zeichen werden unter dem Begriff '"alphanumerische 
Zeichen' zusammengefaßt. Die restlichen Zeichen, die Sie auf der Tastatur 
Ihres COMMODORE 64 finden (z. B. $, +, -, !, ? usw.) nennt man "Sonder- 
zeichen'. Zu den Sonderzeichen gehört auch das Leerzeichen (Blank). Sie 
sollten beachten, daß das Leerzeichen ebenfalls den Speicherbedarf von 
einem Byte benötigt. 

Wie Sie sehen, reicht die Kapazität des Hauptspeichers zur Speicherung 
unseres Textes unter Umständen nicht aus. In diesem Fall ist es nötig, den 
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Text auf einen externen Speicher (z. B. Datassette oder Floppy Disk) zu 
speichern. Dieses Thema soll kurz an späterer Stelle noch einmal aufge- 
griffen werden; Sie können aber auch in dem Buch 'Dateiverarbeitung mit 
dem COMMODORE 64' (Hanser Verlag) nachlesen. 

Sehen wir uns das Programm P12 noch einmal näher an. Wir beschäftigen 
uns zunächst mit dem Menü 1. Im letzten Abschnitt wurde bereits erwähnt, 
daß man darauf achten muß, daß die Anzahl der Textzeilen nicht größer 
wird, als in der DIM-Anweisung vereinbart wurde. Aus diesem Grund ist die 
Anweisung 1025 eingefügt worden. Hier wird abgefragt, ob die zulässige 
Maximalzahl der Textzeilen überschritten wird. Ist das der Fall, wird die 
Meldung 


*%* DATEI VOLL ** 


ausgegeben. Danach folgt mit dem Befehl GOTO 1060 ein Sprung über die 
Anweisung 1060 mit dem Sprungbefehl GOTO 100 zurück zum Hauptmenü. 

Dieses neue Menü zur Texteingabe werden Sie wahrscheinlich nicht so- 
fort verstehen. Sie sollten weiterlesen, bevor Sie sich den Kopf über 
Einzelheiten allzu sehr zerbrechen. Die Bedeutung der Anweisung 


FOR I = 1 TO 1000: NEXT I: GOTO 1060 


ist Ihnen sicherlich noch nicht ganz klar. Sie können diese Anweisung ein- 
fach probeweise weglassen. Was passiert? Müssen Sie nun tatsächlich 400 
Zeilen eingeben, um den Effekt zu testen? Natürlich nicht, da für den 
Testfall die Zeilenzahl in der DIM-Anweisung (Anweisung 10) und in der An- 
weisung 25 (IF NZ = „..) entsprechend herabgesetzt werden kann. Sie sollten 
sich diese Technik aneignen, da Sie damit auf einfache Art und Weise be- 
stimmte Programmteile auf die richtige Funktionsfähigkeit prüfen können. 
Machen Sie sich die Mühe, das auszuprobieren. 

Sie werden nun feststellen, daß Ihnen dieser Effekt bekannt vorkommt: 
Die Meldung 


DATEI VOLL * 


erscheint nur ganz kurz auf dem Bildschirm und wird dann wieder von dem 
Text des Hauptmenüs überschrieben. Wir müssen dem Benutzer aber etwas Zeit 
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lassen, damit er diese Meldung richtig lesen kann. Der Rechner ist mit der 
Ausführung der Anweisungen so schnell fertig, daß unsere Reaktionsfähig- 
keit nicht ausreicht, um die Meldung ** DATEI VOLL** lesen zu können. Wir 
können einen Trick anwenden, um den Rechner etwas zu verlangsamen. 
Mit der Anweisungsfolge 


FOR I=1 TO 1000: NEXT I 


beschäftigen wir den Rechner mit eigentlich überflüssiger Arbeit, indem 
wir ihn eine Schleife von 1 bis 1000 durchlaufen lassen. Für die Aus- 
führung dieser Schleife benötigt der Rechner natürlich etwas Zeit. Nun 
können wir in Ruhe die ausgegebene Meldung lesen, da der Rechner erst nach 
der Ausführung der Schleife wieder zum Hauptmenü zurückkehrt. Sollte Ihnen 
die Zeit immer noch zu kurz sein, können Sie auch den Endwert der Schlei- 
fe erhöhen. Probieren Sie es einfach aus; lassen Sie die Schleife bis 
500, 2000 oder sogar bis 10 000 laufen. Sie können so bestimmen, wie 
lange die Meldung ** DATEI VOLL ** auf dem Bildschirm zu lesen sein soll. 
Diese Technik werden wir später noch öfters verwenden. Diese Art Schleife 
wird im Jargon als 'Warteschleife' bezeichnet. 

Ungeachtet der Anweisung 1025 wird Ihnen aufgefallen sein, daß das 
Menü zur Eingabe des Textes etwas verändert wurde. Erkennen Sie den Unter- 
schied? Schauen Sie genau hin, und vergleichen Sie mit Programm P11. Die 
Anweisung 1010 des Programms P11 (NZ = 0) steht jetzt in Zeile 20; in 
Zeile 1060 steht vor dem Sprungbefehl GOTO 100 des Programms P11 die An- 
weisung 


NZ = NZ - 1 


Welcher Effekt ergibt sich daraus? Nehmen Sie sich das Programm P11 vor, 
und starten Sie es. Wählen Sie das Menü 1 'TEXT EINGEBEN! an. Geben Sie 
einen beliebigen, ca. drei Zeilen umfassenden Text ein. Beenden Sie die 
Eingabe des Textes mit '#e#'. Nun können Sie das Menü 2 anwählen. Der 
Text wird ausgegeben. Als letzte Zeile erscheint allerdings die Zeile 
'#e#'. Diese Zeile sollte eigentlich nicht zum Text gehören, da sie nur 
das Ende des Textes markiert. Sie erinnern sich; das war die erste Un- 
zulänglichkeit des Menüs für die Texteingabe. Haben Sie auch mal ver- 
sucht, einen Text einzugeben, der ein Komma oder einen Doppelpunkt ent- 
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hält? Sie erhalten dann nämlich die Fehlermeldung "EXTRA IGNORED'. Das 
bedeutet, daß der Text, der nach dem ersten Komma oder dem ersten Doppel- 
punkt folgt, ignoriert wird. Sie werden bei der Ausgabe des Textes durch 
das Menü 2 festgestellt haben, daß dieser Text nicht mehr vorhanden ist. 
Dieses Problem werden wir aber erst später angehen. Haben Sie den Text auf 
dem Bildschirm vor sich? Gut. Geben Sie als Beantwortung auf die Frage 
'WEITER?' ein 'J' ein. Wir befinden uns damit wieder beim Hauptmenü. Der 
vorhin eingegebene Text soll nun weitergeschrieben werden, d. h. wir 
wollen erneut Text eingeben, der an den bereits eingegebenen Text ange- 
fügt werden soll. Das entspricht den Erfordernissen in der Praxis, da der 
Text in den seltensten Fällen ohne Unterbrechung der Eingabe direkt nach- 
einander eingegeben werden kann. Wir wählen dazu wieder das Menü 1. 
Was erscheint auf dem Bildschirm? Sie werden feststellen, daß die Zei- 
lennummer 1 erneut ausgegeben wird (wir sind bei der Ausführung des 
Programms P11). Sie ahnen sicherlich schon, daß der bereits eingegebene 
Text gelöscht worden ist. Probieren Sie es aber trotzdem selbst aus. Geben 
Sie dazu ca. 2-3 Zeilen ein. Sie sollten dieses Mal einen anderen Text 
wählen. Beenden Sie die Eingabe mit '#e#'. Wählen Sie anschließend vom 
Hauptmenü aus das Menü 2 "TEXT AUSGEBEN' an. Ihre Vermutung hat sich be- 
stätigt! Der zuerst eingegebene Text ist gelöscht worden. Warum? Machen 
Sie sich den Ablauf des Programms P11 noch einmal klar. Haben Sie den 
Fehler entdeckt? 

In Zeile 1010 wird NZ, also die Anzahl der Zeilen, auf 0 gesetzt. 
Sobald Sie dieses Menü anwählen, wird damit natürlich der vorhergehende 
Text gelöscht. Wir müssen diese Anweisung nur an den Anfang des Programms 
stellen, um den Fehler zu beheben. Das ist in Programm P12 bereits ge- 
schehen. Zu Beginn des Programms wird die Anzahl der Zeilen auf 0 gesetzt. 
Sie sollten daraus etwas Wesentliches lernen: Jedes gute Programm ist 
normalerweise in vier Abschnitte untergliedert. 


1. Initialisierung 
2. Eingabe 

3. Verarbeitung 

4. Ausgabe 


In dem ersten Teil (die Initialisierung) werden die Werte auf einen Start- 
wert gesetzt, die in dem Programm später benötigt werden. Sie sollten 
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diese Initialisierung an den Anfang des Programms legen. Das sollte auch 
dann geschehen, wenn die Variablen erst sehr viel später benötigt werden. 
Programm P12 stellt ein gutes Beispiel dar. 

Ebenso einfach ist auch der Fehler der Ausgabe von '#e#' am Ende eines 
Textes zu beheben. Denken Sie einmal darüber nach, welche Werte der Zähler 
NZ nacheinander durchläuft. Sie werden sehen, daß bei Beendigung der Text- 
eingabe der Wert für den Zähler genau um 1 zu hoch ist. Deshalb ist der 
Wert in Zeile 1060 durch die Anweisung 


NZ=NZ-1 


um 1 herabgesetzt worden. Starten Sie das Programm P12, geben Sie einen 
Text ein, schauen Sie sich diesen Text mit dem Menü 2 an, und geben Sie 
dann mit dem Menü 1 erneut Text ein. Danach sollten Sie wieder das Menü 2 
anwählen und sich den Text ansehen. Die Fehler des Menüs "TEXT EINGEBEN' 
(Programm P11) sind behoben worden! 

Wir wollen uns jetzt dem Menü "TEXT AUSGEBEN' zuwenden. Denken 
Sie daran, daß der spätere Anwender des Programms möglicherweise nicht 
sehr mit der EDV vertraut ist. Solch ein Benutzer hat meistens ein gutes 
Gefühl dafür, Fehler aufzuspüren, die Sie, als EDV-Fachmann, nur sehr 
schwer auffinden werden. So könnte es durchaus sein, daß dieser Benutzer 
wahllos sämtliche Menüs des Programms ausprobiert, ohne sich darüber Ge- 
danken zu machen, ob die Anwendung des Menüs sinnvoll ist. Sie selbst 
kämen wohl kaum auf die Idee, das Menü 'TEXT AUSGEBEN' anzuwählen, bevor 
Sie einen Text eingegeben haben. Ein in der EDV unkundiger Benutzer 
kann sehr wohl auf diesen Gedanken kommen. Sie glauben es nicht? Dann 
probieren Sie es einfach aus. Bitten Sie jemand, mit dem Programm zu ar- 
beiten, der bisher nichts mit der EDV zu tun hatte. Sie sollten alle 
Fehler berücksichtigen und dafür sorgen, daß keine Fehler oder Un- 
stimmigkeiten in dem Programm auftauchen. Bei dem vorliegenden Beispiel 
ist dieses ganz einfach zu realisieren. Prüfen Sie, ob überhaupt ein Text 
vorhanden ist, der ausgegeben werden kann. Dazu muß lediglich der Wert 
des Zeilenzählers NZ getestet werden. Ist dieser Wert größer oder gleich 
1, liegt ein Text vor; beträgt der Wert 0, ist kein Text vorhanden. In der 
Anweisung 2007 wird dieser Fall geprüft. Wenn NZ gleich O ist, wird die 
Meldung 'KEIN TEXT VORHANDEN! ausgegeben. Danach wurde eine Warteschleife 
programmiert. Nachdem der Benutzer ausreichend Zeit hatte, die Meldung zu 
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lesen, wird das Hauptmenü erneut angezeigt. 

Ich hatte Ihnen im vorangegangenen Abschnitt empfohlen, einen Text 
einzugeben, der mehr als 20 Zeilen umfaßt. Haben Sie dieses ausprobiert 
und anschließend den Text mit dem Menü 2 wieder ausgegeben? Wenn das nicht 
der Fall ist, sollten Sie es jetzt tun. Sie werden feststellen, daß der 
Text auf dem Bildschirm sehr schnell zeilenweise erscheint und der Anfang 
des Textes nach oben aus dem Bildschirm herausläuft. Um das zu verhindern, 
müssen wir dafür sorgen, daß die Ausgabe des Textes nach ca. 20 Zeilen 
gestoppt wird. Diese Zeilenzahl basiert auf der Tatsache, daß pro Bild- 
schirmseite nur 20 Zeilen ausgegeben werden können. Wie können wir das er- 
reichen? Überlegen wir uns einmal, nach welcher Textzeilennummer die Aus- 
gabe des Textes angehalten werden muß. Nun, der Text sollte nach den Zei- 
len 20, 40, 60, 80 usw. gestoppt werden.Die Zeilennummern zeichnen sich 
dadurch aus, daß bei der Division durch 20 der Rest O0 ist. Bei der ganz- 
zahligen Division erhalten wir nämlich anstelle der Nachkommastellen einen 
Rest. So ergibt 8 ganzzahlig dividiert durch 3 den Rest 2. Wenn wir in 
BASIC zwei Zahlen ganzzahlig dividieren wollen, bilden wir von dem Di- 
visionsausdruck den sogenannten Integer-Wert. Der Integer-Wert kann mit 
der Funktion INT erzeugt werden. 'Integer' bedeutet, daß die Nachkomma- 
stellen des Wertes einfach weggelassen werden. In Zeile 2030 prüfen wir 
somit, ob der Wert der ganzzahligen Division der laufenden Zeilennummer 
durch 20 mit der Real-Division identisch ist. Unter Real-Zahlen verstehen 
wir die Komma-Zahlen. So ergibt beispielsweise die Real-Division von acht 
durch drei den Wert 1,66. Wenn das Ergebnis der Real-Division identisch 
mit dem Ergebnis der ganzzahligen Integer-Division ist, liegt eine lau- 
fende Zeilennummer vor, bei der die Ausgabe des Textes angehalten 
werden muß. Merken Sie sich diesen kleinen Trick! Wir werden ihn später 
noch einmal gebrauchen können. 

Wir sprachen bereits davon, daß der erste Teil eines Programms die 
Initialisierung von Variablenwerten beinhalten sollte. In Zeile 20 steht 
ein weiterer Befehl, den wir noch nicht erläutert haben: 


POKE 53272,23 


Ihr VC 64 stellt Ihnen zwei Zeichensätze zur Verfügung. Diese beiden 
Zeichensätze können nur alternativ (d. h. nicht gleichzeitig) verwendet 
werden. Wenn Sie die SHIFT- und die COMMODORE-Taste drücken, können Sie 
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damit die Zeichensätze umschalten. Probieren Sie es aus. Sie werden fest- 
stellen, daß Sie zwischen Groß- und Kleinbuchstaben umschalten. Genauer 
gesagt, wählen Sie den Großschrift-/Grafik-Modus oder den Großschrift-/ 
Kleinschrift-Modus an. Im ersteren Fall können Sie nur Großbuchstaben ver- 
wenden. Ihnen stehen dann allerdings auch die Grafikzeichen zur Verfügung. 
Dieser Modus ist für die Textverarbeitung uninteressant. Wir wollen 
nämlich - wie bei einer Schreibmaschine - Groß- und Kleinbuchstaben 
schreiben können. Deshalb sollten wir mit unserem Textverarbeitungspro- 
gramm im Großschrift-/Kleinschrift-Modus arbeiten. Wir hatten die Um- 
schaltung vorhin durch gleichzeitiges Drücken der SHIFT- und der COMMODORE- 
Taste durchgeführt. Wenn Sie den Rechner einschalten, befindet er sich 
automatisch im Großschrift-/Grafik-Modus. Sie müssen deshalb den Groß- 
schrift-/Kleinschrift-Modus einschalten. Diese Umschaltung kann auch vom 
BASIC-Programm durchgeführt werden. Der Inhalt der Speicherzelle 53 272 
muß dazu geändert werden. Befindet sich auf dieser Speicherzelle eine 21, 
arbeitet der Rechner im Großschrift-/Grafik-Modus. Befindet sich dagegen 
eine 23 auf diesem Speicherplatz, so arbeitet er im Großschrift-/Klein- 
schrift-Modus. Im einführenden Kapitel haben wir gelernt, daß wir mit 
dem Befehl POKE einen Wert auf einen Speicherplatz schreiben können. 
Dazu geben wir nach POKE die Nummer der Speicherzelle und danach den Wert 
an, den wir auf die Speicherzelle schreiben wollen. In Zeile 20 wird mit 
dem Befehl POKE auf die Speicherzelle 53 272 eine 23 geschrieben. Das be- 
deutet, daß wir für das weitere Arbeiten den Großschrift-/Kleinschrift- 
Modus anwählen. Wenn das Programm beendet ist, sollten wir es nicht ver- 
säumen, wieder den standardmäßigen Großschrift-/Grafik-Modus einzuschal- 
ten. Das geschieht in der Anweisung mit der Zeilennummer 8000. Lassen Sie 
diese Zeile einmal aus. Schreiben Sie statt dessen in Zeile 8000 den PRINT- 
Befehl 'PROGRAMM BEENDET'. Sie werden feststellen, daß dieser Text bei Be- 
endigung des Programms in Kleinschrift erscheint. Beenden wir dagegen 
das Programm mit den Befehlen wie in P12 beschrieben, erhalten wir wieder 
den Großschrift-Modus. 

Ist Ihnen etwas aufgefallen? Im Programm P11 begann das Menü für die 
Beendigung des Programms mit der Zeilennummer 7000; jetzt haben wir den 
Beginn des Menüs PROGRAMM BEENDEN bei der Zeilennummer 8000. Ich hoffe, 
Sie haben sich in der Zwischenzeit Gedanken darüber gemacht, ob unser 
Textverarbeitungsprogramm den Anforderungen genügen wird, die wir später 
an dieses Programm stellen werden. Ihnen sind bestimmt eine ganze Menge 
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Wünsche eingefallen, die sich in den sechs Hauptmenüs nicht unterbringen 
lassen. Wir könnten uns doch ein Menü vorstellen, das uns angibt, wieviel 


freier Speicherplatz zur Speicherung des Textes noch zur Verfügung steht. 
Dieses Menü läßt sich aber in keines der sechs Menüs des Programms P11 
sinnvoll unterbringen. In Programm P12 ist deshalb ein neues Menü, das 
Menü 7, mit der Bezeichnung 'SONDERFUNKTIONEN' installiert worden. Sehen 
Sie sich einmal an, welche Auswirkungen das Einfügen dieses Menüs hat, 
indem Sie die Programme P11 und P12 vergleichen. Sie können dabei fest- 
stellen, wie hoch der Preis für eine nachlässige Systemanalyse ist. Damit 
aus unserem Programm kein Patch-Work (Flickzeug) wird, müssen wir das neue 
Menü 7 in die alten Menüs integrieren. Das bedeutet, daß das Menü 7 ab 
Zeile 7000 beginnen muß und das Menü 8 'PROGRAMM BEENDEN! ab Zeile 8000 be- 
ginnen sollte. Es ist dadurch erforderlich geworden, daß die Unterprogram- 
me, die vorher ab Zeile 8000 begannen, nun ab Zeile 9000 beginnen. 

Wir sollten uns an dieser Stelle die Mühe machen und das Programm 
entsprechend umstrukturieren. Für die Zukunft sollten wir derartige Er- 
weiterungen von Anfang an einplanen. Es hat sich nämlich gezeigt, daß 
man erst im Laufe der Programmentwicklung (oder sogar während des Ar- 
beitens mit dem Programm) erkennt, welche Dinge noch fehlen. Im folgenden 
Abschnitt wollen wir unser Programm weiter ausbauen. 


6 Die Untermenüs werden programmiert 


Nachdem wir im letzten Kapitel das Hauptmenü eingehend behandelt 
haben, wollen wir uns jetzt den Untermenüs zuwenden. Da dies eine 
komplexe Aufgabe ist, sollten wir ganz langsam in kleinen Schritten 
vorangehen. 


6.1 Das Gerüst für die Sonderfunktionen 


In Kapitel 5 wurde bereits angedeutet, daß ein Textverarbeitungsprogramm 
Sonderfunktionen zur Verfügung stellen sollte. Da es sich um mehrere 
Sonderfunktionen handelt, sollte man auch hier ein Menü anbieten, das 
mehrere Möglichkeiten zur Verfügung stellt. Dieses Menü steht hierarchisch 
unter dem Hauptmenü. Es muß deshalb eine Möglichkeit geschaffen werden, um 
nach Anwahl dieses Menüs wieder zum Hauptmenü zurückzukommen. Wir bauen 
das Menü "SONDERFUNKTIONEN' genauso auf, wie das Hauptmenü. Damit wir 
dieses Menü innerhalb der Möglichkeiten, die uns die acht Funktionstasten 
bieten, beliebig erweitern können, belegen wir die Funktionstaste 8 mit 
der Rückkehr in das Hauptmenü. Uns bleiben somit die Funktionstasten 1-7 
für die Sonderfunktionen. Zunächst werden wir uns auf drei Möglichkeiten 
beschränken. Wir wollen den freien Speicherplatz bestimmen, der uns zur 
Abspeicherung von Texten zur Verfügung steht. Mit Menü 2 und 3 sollen 
Textproben auf dem Bildschirm bzw. auf dem Drucker ausgegeben werden kön- 
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nen. Diese Textproben dienen zur Durchsicht des Textes, bevor dieser mit 
dem Menü 2 im "Reinformat' ausgegeben wird. Es ist nicht besonders schwer, 
dieses Menü zu programmieren. Wir müssen nur geschickt von dem bereits 
existierenden Programm abschreiben. Sehen Sie sich einmal die Zeilen 100 
bis 144 des Programms P13 an. Wir können diesen Programmteil übernehmen 
und müssen lediglich die Texte austauschen. Das Untermenü 'SONDERFUNKTION- 
EN' ist in den Zeilen 7000-7040 programmiert worden. Erkennen Sie die 
Ähnlichkeit der Zeilen 100-144 mit den Zeilen 7000-7040? 

Nach Zeile 7040 muß wieder die Eingabe und die Abfrage der Funktions- 
tasten erfolgen. Auch dieser Programmteil ist mit dem entsprechenden Pro- 
grammteil des Hauptmenüs identisch. Es ist deshalb sinnvoll, diesen Pro- 
grammteil als Unterprogramm zu programmieren. Das ist bereits in Programm 
P13 geschehen. Vergleichen Sie die Zeilen 9050-9070 des Unterprogramms mit 
den Zeilen 145-160 des Programms P12. Es ist für den Anfänger nicht leicht, 
eine Strukturierung in sinnvolle Unterprogramme vorzunehmen. So wäre es 
beispielsweise nicht sinnvoll, die Abfrage zur Eingabe einer gültigen 
Funktionstaste in das Unterprogramm aufzunehmen. Wie Sie sehen, haben wir 
in dem Menü 'SONDERFUNKTIONEN' noch nicht alle Funktionstasten in Betrieb. 
Hätten wir eine der gültigen Funktionstasten 1-8 mit der Abfrage beledt, 
könnten wir dieses Unterprogramm nicht für das Menü 'SONDERFUNKTIONEN' 
verwenden. Wir nehmen deshalb die Abfrage weiterhin im Hauptprogramm vor. 
Machen Sie sich selbst einmal Gedanken darüber, ob bei dem Menü '"SONDER- 
FUNKTIONEN" ein berechneter Sprung oder die Aneinanderreihung von IF- 
Abfragen in den Zeilen 7050-7053 sinnvoll ist. Die weitere Gliederung 
des Untermenüs 'SONDERFUNKTIONEN' ist der Gliederung der einzelnen Haupt- 
menüs ähnlich. So haben wir z. B. von Zeile 7100-7199 Platz, um das Menü 
'FREIER SPEICHERPLATZ' zu programmieren. Wie Sie sehen, bleibt unser 


Programm einfach und übersichtlich, obwohl es größer und komplexer ge- 
worden ist. 


6 Die Untermenüs werden programmiert 


sy 





18 DIM T$(480) 


28 POKE 53272,23:NZ=8 


188 
185 
118 
115 
128 
125 
138 
135 
148 
143 
144 
158 
162 
165 
1898 
1885 
1828 
1825 
1838 
1848 
1858 
1868 
2888 
28985 
2897 
2818 
2828 
2838 
2848 
2845 
2047 
2058 
2868 
2078 
2888 
3888 
3885 
3886 
3818 
4888 
4805 


PRINT" 


PRINT "HAUPTMENUE" 


PRINT "--- 


PRINT"F2 
PRINT"F2 
PRINT"F3 
PRINT'"F4 
PRINT"FS 
PRINT"Fe 
PRINT"FT 
PRINT"F8S 


GOSUB 93858 


----- "PRINT :PRINT 


TEXT EINGEBEN" :PRINT 
TEXT AUSSEBEN” :PRINT 
TEAT SPEICHERN" :PRINT 
TEXT ABRUFEN” :PRINT 
TEXT BEARBEITEN" :PRINT 
TEXT VERARBEITEN" :PRINT 
SONDERFUNKT TIONEN" :PRINT 
PROSRAMM BEENDEN": PRINT 


IF NOT<F>=133 AND F<=148) THEN 188 


ON F-132 GOTO 1888, 3808 ,5888, 7008, 2808, 4988,6808 ,3888 


PRINT"TEXT EINGEBEN" 


PRINT"--- 


NZ=NZ +1 


IF NZ=481 THEN PRINT"%k%* DATEI VOLL *%*":FOR I=1 TO 1888:NEXT 1:G60T0 1868 
PRINT’W" ; NZ," 

INPUT T$CNZ) 

IF T$CNZICD"HER" THEN 1828 
NZ=NZ-1:G0T0 188 
PRINT"TEXT AUSSEBEN" 


PRINT"--- 


= "PRINT 


IF NZ=8 THEN:PRINT"KEIN TEXT VORHANDEN" :FOR I=1 TO 1888:NEXT 1:60T9 188 
FOR I=1 TO NZ 

PRINT T$CI) 

IF 1728<>INT<CI728) THEN 2858 
PRINT: INPUT"WEITER <J/ND";A$ 


IF ASCH" J" 
PRINT"R" 


NEXT I 


THEN 2848 


PRINT: INPUT"MEITER <(J/M";,RA$ 


IF Aasc>"J" 
SoToO 188 


THEN 2868 


PRINT"TEXT SPEICHERN" 


PRINT"--- 
GOSUB 9898 
SOTO 188 


ES ER "PRINT 


PRINT"TEXT ABRUFEN" 


PRINT"--- 


-- "PRINT 


58 


4886 
4818 
5888 
5895 
5886 
5818 
6098 
6885 
60886 
6818 
7888 
reoi 
7805 
7818 
7815 
7828 
78408 
ra4S 
7058 
7851 
7852 
7853 
7859 
7188 
7182 
7185 
7106 
7288 
282 
7285 
7286 
7388 
7382 
7395 
7306 
sea8 
80108 
8828 
9898 
93885 
90168 
9815 
98208 
9958 
3855 
9868 
29855 
93078 


GOSUB 9888 

SOTO 188 

PRINT"TEXT BEARBEITEN" 

PRINT Ten ":PRINT 
GOSUB 9889 

SOoTO 188 

PRINT" TEXT VERARBEITEN" 
PRINT TE ":PRINT 
GSOSUB 9888 

GOTO 188 

PRINT”E” 
PRINT"SONDERFUNKT TIONEN" 

a 253 8 5% Ba nn nn ":PRINT 


PRINT "1 - FREIER SPEICHERPLATZ" :PRINT 
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PRINT "2 - TEXTPROBE AUF DEM BILDSCHIRM" :PRINT 
PRINT "3 - TEXTPROBE AUF DEM DRUCKER" :PRINT 


PRINT"3 - HAUPTMENUE" : PRINT 
GOSUR 9954 

IF F=133 THEN 7188 

IF F=137 THEN 7208 

IF F=134 THEN 7398 

IF F=148 THEN 188 

GOTO 7888 

PRINT"FREIER SPEICHERPLATZ" 
PRINT ——— mern ” 
GOSUB 9888 

SOTO 7888 

PRINT"TEXTPROBE AUF DEM BILDSCHIRM" 
PRINT" =-=-------- ----- + ” 
GOSUB 9884 

SOTO 7888 

PRINT" TEXTPROBE AUF DEM DRUCKER” 
PRINT" een nn nee nen r 
SOSUB 9888 

GOTO 7888 

POKE 53272,21 

PRINT"PROSRAMM BEENDET" 

END 

REM kUuU1i% 

PRINT"NOCH NICHT VERFUESBAR”" 
INPUT"WEITER <J/N";A$ 

IF A$C’"J" THEN 9818 


RETURN 

REM #U2% 

PRINT :PRINT:PRINT"WFUNKTIONSTASTE DRUECKENE' 
GET F$:IF F$="" THEN 99698 

F=ASC(F$) :PRINT"R”" 

RETURN 


Programm P 13 
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6.2 Untermenü: Textbearbeitung 


Bereits bei der Systemanalyse wurde darauf verwiesen, daß es einen Unter- 
schied zwischen Textbearbeitung und Textverarbeitung gibt. Wir wollen nun 
das Thema 'Textbearbeitung' konkretisieren und eine Systemanalyse durch- 
führen. Zweckmäßigerweise sollten sämtliche Punkte, die einem zu dem be- 
treffenden Thema einfallen, notiert werden und später systematisch ge- 
ordnet werden. 

'Nobody ist perfect' gilt als alte, unbestrittene Weisheit. So wird 
sicherlich jedem von uns ein Tippfehler unterlaufen, den wir erst nach 
Eingabe des Textes oder beim Durchlesen des Probeausdruckes, den wir 
uns erstellt haben, bemerken. Wie wir einen Probeausdruck erstellen können, 
werden wir später sehen. Wir benötigen also eine Möglichkeit, einen ein- 
gegebenen Text zu korrigieren. Diese Korrekturmöglichkeit kann in zwei- 
facher Hinsicht nützlich sein: Wir müssen einerseits Tippfehler beseitigen, 
andererseits kann uns nach Überarbeitung des Textes auffallen, daß ein 
bestimmtes Wort durch ein anderes Wort ersetzt werden sollte. Auch in 
diesem Fall handelt es sich um eine Korrektur. Mit einem Textverarbeitungs- 
programm ist es möglich, in dem gesamten Text oder auch abschnittweise ein 
bestimmtes Wort durch ein anderes zu ersetzen. Der Begriff 'Wort' ist hier 
nicht wörtlich zu verstehen. Mit 'Wort' soll vielmehr eine Folge von 
Zeichen beschrieben werden. Das kann natürlich das Wort im eigentlichen 
Sinne sein; es kann aber auch eine Silbe oder eine Zusammenfassung von 
zwei Wörtern beschreiben. 

Was passiert, wenn wir zuviel des Guten getan haben und ein Wort 
löschen wollen? Auch dieses Problem sollte mit einem Textverarbeitungs- 
programm gelöst werden können. 

Möglicherweise wollen wir in einem Text eine bestimmte Passage Suchen. 
Warum sollte uns der Computer nicht dabei helfen? Er kann nämlich sehr 
viel schneller als wir nachsehen, ob ein bestimmtes Wort oder eine Passage 
in einem Text vorkommt. 

Die bisher genannten Textbearbeitungsfunktionen bezogen sich auf eine 
bestimmte Stelle innerhalb einer Textzeile. Neben diesen 'Wortfunktionen' 
benötigen wir aber auch Funktionen, die sich auf Textzeilen beziehen. 
Unser Eingabemenü für den Text arbeitet zeilenorientiert, d. h. wir 
strukturieren bereits bei der Eingabe den Text in einzelne Textzeilen. 
Wir werden später die Möglichkeit der Eingabe im Fließtext kennenlernen. 
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Bis dahin sollten wir aber die zeilenorientierte Struktur des Textes bei- 
behalten. Ähnlich wie wir vorhin ein Wort löschen wollten, kann es durch- 
aus erforderlich sein, eine Zeile oder einen ganzen Textblock, also 
mehrere aufeinanderfolgende Zeilen zu löschen. 

Vielleicht wollen wir auch eine Textpassage an eine andere Stelle 
innerhalb unseres Textes setzen. Dazu benötigen wir die Möglichkeit, ganze 
Zeilen oder einen Textblock innerhalb eines Textes zu verschieben. Wenn 
wir erst nach Eingabe eines Textes merken, daß wir eine ganze Passage ver- 
gessen haben oder eine Erweiterung des Textes vornehmen wollen, muß 
uns auch hier das Textverarbeitungsprogramm die Möglichkeit bieten, nach- 
träglich eine Zeile oder einen Textblock an beliebiger Stelle innerhalb 
des Textes einzufügen. 

Lassen Sie uns das gerade Besprochene zusammenfassen und die obige 
Stoffsammlung systematisch ordnen. Unser Menü 'TEXT BEARBEITEN!" könnte 
folgendermaßen aussehen: 


WORT SUCHEN 

WORT LOESCHEN 

WORT KORRIGIEREN 
ZEILE(N) LOESCHEN 
ZEILE(N) EINFUEGEN 
ZEILE(N) VERSCHIEBEN 


ao pP wöRN — 
ı 


Das Programm Pi4 zeigt die programmtechnische Realisierung des Unter- 
menüs "TEXT BEARBEITEN'. Sie sehen auch hier, wie leicht es uns fällt, 
dieses Untermenü zu schreiben. Wir sollten uns lediglich an dem orientie- 


5888 PRINT'W” :PRINT"TEXT BEARBEITEN" 

885 PRINT"-=----ennn "PRINT 

5818 PRINT'"1i1 - WORT SUCHEN” :PRINT 

5815 PRINT"Z2 - WORT LOESCHEN" :PRINT 

5828 PRINT"3 - WORT KORRIGIEREN" :PRINT 

5825 PRINT"4 - ZEILE<N) KORRISIEREN" :PRINT 
5838 PRINT"S - ZEILE<N)D EINFUEGEN'" :PRINT 
5835 PRINT"6 - ZEILE<N)D VERRSCHIEBEN" :PRINT 
5858 PRINT"S - HAUPTMENUE'" 
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5855 GOSUB 9858 

5868 IF F=133 THEN 5188 

5861 IF F=137 THEN 5288 

5862 IF F=134 THEN 5388 

5863 IF F=138 THEN 5488 

>s864 IF F=135 THEN 5588 

>s865 IF F=139 THEN 5688 

S866 IF F=148 THEN 198 

5869 GOTO 5888 

5188 PRINT"WORT SUCHEN" 

182 PRINT een ei 

5185 GOSUB 9888 

5186 GSOTO 5888 

5288 PRINT"WORT LOESCHEN" 

saBE PRINT ea—a——usnne 5 

>285 GOSUB 9888 

5206 G0T0 5888 

5388 PRINT"WORT KORRIGIEREN" 
398 ERINT Fear a 
5385 GOSUB 9888 

5386 GOTO 5088 

5488 PRINT"ZEILE<N? LOESCHEN" 
482 PRINT nun Pr 
5485 GOSUB 98886 

5486 GOTO 5888 

5588 PRINT"ZEILE<ND EINFUESEN”" 
SSBE PRINTFSemennnena nn a. 
55805 GOSUB 9888 

5586 GOTO 5888 

5688 PRINT"ZEILE<ND VERSCHIEBEN" 
SsBB8 PRINT em de 
5685 GOSUB 9898 

5686 GOTO 59088 
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ren, was wir bisher entwickelt haben. Die einzelnen Programmteile müssen 
dann nur noch geschickt kopiert werden und mit veränderten Texten ver- 
sehen werden. Wir wollen uns aus diesem Grund nicht länger mit der Er- 


läuterung des Programms P14 aufhalten. 
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6.3 Sonderfunktion: Freier Speicherplatz 


Mit dem Hauptmenü "TEXT EINGEBEN' füllen wir den Textpuffer unseres Text- 
verarbeitungsprogramms, nämlich die indizierte Variable TI$. Da jede 
Textzeile maximal 255 Zeichen enthalten darf und wir insgesamt 400 Text- 
zeilen vorgesehen haben, kann es passieren, daß die Speicherkapazität 
unseres Arbeitsspeicheres erschöpft ist, bevor wir den Textpuffer mit 400 
Zeilen gefüllt haben. Wie Sie wissen, benötigen wir zum Abspeichern eines 
Zeichens ein Byte. 400 Zeilen pro maximal 255 Byte ergibt ein Vielfaches 
der Speicherkapazität, die unser COMMODORE 64 besitzt. Wir können deshalb 
die Fehlermeldung 'OUT OF MEMORY' erhalten, bevor unser Programm die Mel- 
dung '** DATEI VOLL **' ausgibt. 

Durch die Fehlermeldung 'OUT OF MEMORY' wird automatisch ein Abbruch 
des Programms erzeugt. Das bedeutet letztlich auch, daß der eingegebene 
Text verlorengegangen ist. Wir sollten daher dem Benutzer des Textsys- 
tems die Möglichkeit geben, sich laufend über den noch zur Verfügung 
stehenden Speicherplatz zur Speicherung des Textes zu informieren. Dazu 
haben wir die Sonderfunktion 'FREIER SPEICHERPLATZ' vorgesehen. 

In dem Kapitel 3 wurde die Funktion FRE, mit der Sie den freien 
Speicherplatz bestimmen können, vorgestellt. Probieren Sie diese Funktion 
aus. Laden Sie dazu das Programm P14 in den Arbeitsspeicher. Löschen Sie 
die Zeilen 7105 und 7106. Schreiben Sie folgende Passage in das Programm: 


7105 X=FRE(0) 

7130 PRINT"NOCH PLATZ FUER ";X5" ZEICHEN FREI" 
7198 GOSUB 9010 

7199 GOTO 7000 


Starten Sie dieses Programm und wählen Sie die Sonderfunktion "FREIER 
SPEICHERPLATZ' an. 

Wenn Sie das Programm genauso eingegebenen haben (einschließlich der 
Leerzeichen!), werden Sie die Meldung 'NOCH PLATZ FUER -30906 ZEICHEN FREI! 
erhalten. Sie werden sich jetzt fragen, warum Sie weniger Speicherplatz 
als 0 haben. Bevor wir diese Frage klären, sollten wir noch einen Schritt 
weiter gehen und uns ansehen, was geschieht, wenn wir jetzt einen Text 
eingeben. Gehen Sie zurück zum Hauptmenü. Geben Sie die Textzeilen 
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BASIC 
#e# 


ein. Wählen Sie anschließend das Menü 'FREIER SPEICHERPLATZ' an. Sie werden 
die Meldung 'NOCH PLATZ FUER -30922 ZEICHEN FREI!" bekommen. Es ist schon 
merkwürdig, daß die Zahl für den Speicherplatz noch 'negativer' geworden 
ist, 

Wenn Sie viel Zeit zur Verfügung haben, sollten Sie einen längeren 
Text eingeben und dabei ab und zu den freien Speicherplatz überprüfen. 
Sie werden feststellen, daß der Wert für den freien Speicherplatz zunehmend 
negativ wird, um dann nach einem Wert von -32768 wieder positiv zu werden. 
Danach nimmt der noch verfügbare Speicherplatz erwartungsgemäß ab. 

Der Grund für diese etwas merkwürdigen Vorgänge ist, daß die 
Speicherzellen Ihres COMMODORE 64 nicht von 1 bis 65536 durchnumeriert 
sind, sondern von -32768 bis +3276/. Da wir dieses wissen, können wir nun 
leicht den tatsächlichen freien Speicherplatz berechnen. Denken Sie daran, 
daß der normale EDV-Benutzer diese internen Kenntnisse des VC 64 nicht hat. 
Wir sollten daher die Umrechnung dem Benutzer abnehmen. Überlegen Sie sich, 
wie die Umrechnung durchzuführen ist. Das Programm P15 enthält die Lösung. 
Um die Umrechnung durchzuführen, müssen wir lediglich die Zeile 7110 ein- 
fügen. Starten Sie das Programm P15. Sehen Sie nach, wieviel Speicherplatz 


7888 PRINT"W” 

7881 PRINT"SONDERFUNKT TIONEN" 

TaSE BRETT ee "PRINT 

7818 PRINT "1 - FREIER SPEICHERPLATZ" :PRINT 

7@e15 PRINT "2 - TEXTPROBE AUF DEM BILDSCHIRM" :PRINT 
7828 PRINT "3 - TEXTPROBE AUF DEM DRUCKER" : PRINT 
7821 PRINT"4 - TASTEN-WIEDERHOLUNGSFUNKT ION" :PRINT 
7848 PRINT"8 - HAUPTMENUE" :PRINT 

7845 GOSUB 9958 

7858 IF F=133 THEN 71088 

7esi IF F=137 THEN 7288 

7e52 IF F=134 THEN 7308 

7853 IF F=148 THEN 188 

7854 IF F=138 THEN 7488 

7859 GOTO 7898 

7188 PRINT"FREIER SPEICHERPLATZ"” 
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182 PRINT" once ” 

7185 %=FRE(®) 

7118 IF x<=8 THEN X=32767+(%+32768) 

7138 PRINT"NOCH PLATZ FUER ";X%;" ZEICHEN FREI" 
7193 GOSUB 9818 

7199 GOTO 7088 

7288 PRINT"TEXTPROBE AUF DEM BILDSCHIRM" 
282 PRINT"”------------- - emo nn nn n 
7285 GOSUB 9888 

72086 G0TO 7888 

7388 PRINT"TEXTPROBE AUF DEM DRUCKER" 

382 PRINT"--------- ------- ” 

7385 GOSUB 98886 

7386 GOTO 7088 

7488 PRINT" TASTEN-WIEDERHOLUNSSFUNKT ION” 
482 PRINT"-------------- - --- 7-2 ” 
7485 PRINT 

7418 INPUT"WIEDERHOLUNSSFUNKTION <J/N";X$ 
7415 IF NOT(CX$="J" OR %$="N") THEN PRINT"EINSABEFEHLER" :SOTO 7418 
7428 IF x$="J" THEN POKE 658,128 

7425 IF %$="N" THEN POKE 658,8 

7438 GOTO 7888 


Programm P 15 


Ihnen zur Abspeicherung des Textes zur Verfügung steht. Sie werden die 
Meldung "NOCH PLATZ FUER 34598 ZEICHEN FREI' erhalten. Fällt Ihnen hier 
etwas auf? 

Wir hatten bei dem Programm P14 die Meldung 'NOCH PLATZ FUER -30906 
ZEICHEN FREI' erhalten. Diese Zahl soll nun umgerechnet werden: 


32767 + (-30906 + 32768) 


Wir erhalten einen Wert von 34629. Das bedeutet, daß wir bei dem Programm 
P14 noch Platz für 34629 Zeichen haben. Warum haben wir bei dem Programm 
P15 nur noch Platz für 34598 Zeichen? 

Erinnern Sie sich daran, was oben gesagt wurde? Der Arbeitsspeicher 
enthält das Programm und die unmittelbar dazugehörigen Daten. Das bedeutet, 
daß das Programm und der im Textpuffer enthaltene Text gespeichert wird. 
Das Programm ist durch die Anweisung 7110 'größer' geworden. Jede An- 
weisung unseres Textverarbeitungsprogramms belegt Speicherplatz, der 
letztlich für die Speicherung des Textes verloren geht. Wenn wir unser 
Programm ständig erweitern und damit komfortabler machen, benötigen wir 
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auch immer mehr Anweisungen. Man sollte deshalb einen Kompromiß schließen, 
damit nicht der gesamte Arbeitsspeicher nur durch das Programm gefüllt 
wird und kein Platz mehr für den eigentlichen Text zur Verfügung steht. 
Wir haben bereits eine Methode kennengelernt, Speicherplatz zu sparen! 
Denken Sie an die Unterprogrammtechnik. Wir vermeiden bei Anwendung der 
Unterprogrammtechnik, daß gleichlautende Programmabschnitte wiederholt 
programmiert werden. Bei geschickter Ausnutzung dieser Technik läßt sich 
erheblich Speicherplatz sparen. 

Geben Sie das Menü "TEXTEINGABE' ein. Tippen Sie die Textzeilen 


BASIC 
#e# 


ein. Wählen Sie anschließend das Menü '"FREIER SPEICHERPLATZ' an, und sehen 
Sie nach, wieviel Platz Ihnen jetzt noch zur Verfügung steht. Sie erhalten 
die Meldung 


NOCH PLATZ FUER 34582 ZEICHEN FREI 


Zählen Sie nach, wie viele Zeichen wir insgesamt eingegeben haben. Es 
waren nur 8 Zeichen; der Rechner hat aber 34598 - 34582 = 16 Zeichen ver- 
braucht, da neben dem eigentlichen Abspeichern des Textes Daten benötigt 
werden, die der Rechner selbst erzeugt und zur Verwaltung des Textpuffers 
benötigt. Wählen Sie wieder das Menü "TEXT EINGEBEN'an. Tippen Sie noch 
einmal das Wort 'BASIC' ein. Überprüfen Sie den freien Speicherplatz. Sie 
sehen, daß Sie noch Platz für 34577 Zeichen haben. In diesem Fall hat der 
Rechner 5 Zeichen für das Wort 'BASIC'abgezogen, da die internen Verwal- 
tungsdaten zum Abspeichern des Textes bereits angelegt worden sind und 
nur noch die tatsächlich eingegebene Zeichenanzahl abgezogen wird. 

Durch den Befehl FRE wird neben der Angabe des freien Speicherplatzes 
auch noch ein '"Garbage Collect' erzeugt. Der Rechner speichert den Text 
nacheinander im Arbeitsspeicher ab. Wenn wir beispielsweise eine Text- 
zeile löschen, wird der dadurch frei gewordene Speicherplatz nicht sofort 
frei gegeben. Die Freigabe wird erst dann durch BASIC erzwungen, wenn 
kein freier Speicherplatz zur Speicherung des Textes zur Verfügung steht. 
Erst danach macht der Rechner ein Garbage Collect, indem er den im Speicher 
enthaltenen Text komprimiert. Das bedeutet, daß die 'Lücken' im Textpuffer 
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eliminiert werden und der Text quasi zusammengeschoben wird. Das Garbage 
Collect können Sie ebenfalls erreichen, indem Sie den Befehl FRE geben. 
Dadurch erzwingen Sie, daß der Textpuffer von überflüssigem Text be- 
reinigt wird. Sie können sich vorstellen, daß diese Bereinigung Zeit 
kostet. Wenn Sie später intensiv mit dem Textverarbeitungsprogramm arbei- 
ten sollten, werden Sie feststellen, daß die Ausführung des Menüs 'FREIER 
SPEICHERPLATZ' eine Menge Zeit in Anspruch nimmt. Das liegt einfach daran, 
daß das oben erwähnte Garbage Collect, also das Zusammenschieben und 
Komprimieren des Textpuffers durchgeführt werden muß, bevor der Rechner 
den noch verbleibenden freien Speicherplatz bestimmen kann. Das Garbage 
Collect wird (wie erwähnt) automatisch durchgeführt, wenn kein weiterer 
freier Speicherplatz zur Verfügung steht. Es kann deshalb vorkommen, daß 
die Texteingabe etwas behindert wird, wenn der Textpuffer sehr viel Text 
enthält. Aus diesem Grund ist ein effizientes und professionelles Arbeiten 
mit einem Textsystem nur dann möglich, wenn Sie das Textprogramm entweder 
direkt in Maschinensprache schreiben, oder es durch einen BASIC-Compiler 
compilieren. Auf das direkte Schreiben in Maschinensprache wird in diesem 
Buch nicht weiter eingegangen. Ein Grund dafür war, daß die Programmierung 
recht schwierig ist und deshalb nur Fortgeschrittenen zuzumuten ist. 
Ein weiterer Grund ist, daß ein in Maschinensprache geschriebenes Programm 
nicht auf einem anderen Rechner ausgeführt werden kann. Obwohl sich das 
vorliegende Buch speziell mit dem COMMODORE 64 beschäftigt, habe ich ver- 
sucht, das Textverarbeitungsprogramm allgemein zu halten. Mit Ausnahme 
einiger kleiner Änderungen ist es möglich, dieses Programm auf dem Rechner 
eines anderen Herstellers auszuführen. 

Testen Sie den Unterschied zwischen der compilativen und der inter- 
pretativen Ausführung. Wenn Sie sich die Diskette besorgt haben, können 
Sie das leicht tun, da die endgültige Programmversion sowohl als BASIC- 
Programm, als auch als compiliertes Programm auf der Diskette vorhanden 
ist. 

Bei der vorliegenden Programmversion muß der Benutzer selbst darauf 
achten, daß er den noch zur Verfügung stehenden Speicherplatz nicht über- 
schreitet. Dazu muß er hin und wieder das Sondermenü anwählen, um sich 
über den noch zur Verfügung stehenden Platz zu informieren. Das setzt 
allerdings eine gewisse Disziplin des Anwenders voraus. Es wäre besser, 
den Anwender nach der Eingabe jeder Zeile oder nach der Eingabe einer 
bestimmten Anzahl von Textzeilen automatisch darüber zu informieren, 
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wieviel Speicherplatz noch vorhanden ist. Versuchen Sie, das entsprechende 
Programm zu schreiben. 


6.4 Sonderfunktion: Tastenwiederholung 


Schalten Sie Ihren COMMODORE 64 aus und nach ca. drei Sekunden wieder an. 
Drücken Sie eine beliebige Taste und halten Sie diese Taste gedrückt. Der 
jeweilige Wert der Taste erscheint nur einmal auf dem Bildschirm. 

Bei modernen Schreibmaschinen gibt es die Tastenwiederholungsfunktion. 
Das bedeutet, daß der Wert einer Taste automatisch wiederholt wird, wenn 
die Taste längere Zeit gedrückt wird. Man spart sich die Arbeit des 
wiederholten Anschlagens eines Zeichens, wenn dieses mehrfach hinterein- 
ander benötigt wird. Auch Ihr COMMODORE 64 besitzt diese Vorrichtung. 
Die Tastenwiederholungsfunktion wird eingeschaltet, indem man auf den 
Speicherplatz 650 die Zahl 128 schreibt. Steht auf dem Speicherplatz der 
Wert 0, ist die Tastenwiederholungsfunktion ausgeschaltet. Geben Sie den 
Befehl 


POKE 650,128 


direkt ohne Zeilennummer ein. Drücken Sie danach die RETURN-Taste. Drücken 
Sie eine beliebige Taste, und halten Sie diese fest. Nach kurzer Zeit 
wird die Taste so lange automatisch wiederholt, bis sie losgelassen wird. 
Diese Funktion kann sehr hilfreich, unter Umständen aber auch störend sein. 
Wir wollen sie deshalb wieder ausschalten. Tippen Sie den Befehl 


POKE 650,0 


ein. Machen Sie das Experiment erneut, und drücken Sie eine Taste. Sie 
werden feststellen, daß die Taste nicht mehr automatisch wiederholt wird. 

Laden Sie sich wieder die laufende Version des Textprogramms von der 
Datassette oder von der Diskette. Wir wollen die Tastenwiederholungs- 
funktion in dem Menü 'SONDERFUNKTIONEN' ein- und ausschaltbar machen. Dazu 
erweitern wir das Menü 'SONDERFUNKTIONEN' um das Menü 4. Im Programm P15 
können Sie diesen Programmausschnitt sehen. Das Ein- und Ausschalten der 
Tastenwiederholungsfunktion ist in den Zeilen 7400-7430 programmiert wor- 


68 Sonderfunktion: Textprobe auf dem Drucker 


den. Vorsichtshalber wird abgefragt, ob als Antwort auf die Frage 'WIEDER- 
HOLUNGSFUNKTION' wirklich mit 'J'" oder 'N' geantwortet wurde. Ist das 
nicht der Fall, wird die Meldung "EINGABEFEHLER" ausgegeben. Anschließend 
kann die Antwort erneut eingegeben werden. (Dieser Programmteil ist in Pro- 
gramm P15 zu sehen.) 


6.5 Sonderfunktion: Textprobe auf dem Drucker 


Wir haben kennengelernt, wie wir den eingegebenen Text auf dem Bildschirm 
ausgeben können. Sehen Sie sich deshalb das Hauptmenü 2 "TEXT AUSGEBEN' 
noch einmal an. Wir sollten unser Wissen etwas erweitern und lernen, wie 
wir Text auf dem Drucker ausgeben können. Die Textausgabe des Sondermenüs 
sollte als Textprobe für das Korrekturlesen verstanden werden. Dazu ist es 
nützlich, daß wir die Anfangs- und Endzeilen des auszugebenden Textes be- 
stimmen können. Die Zeilennummer jeder Textzeile sollte ebenfalls vor 
dieser ausgedruckt werden, damit wir später bei dem Menü 'TEXT BEARBEITEN' 
direkt auf die einzelnen Zeilen zugreifen können. Sehen wir uns an, wie 
wir die Programmierung des Menüs angehen sollten. Dazu sollten wir uns an 
einen Schwachpunkt des Programms P11 erinnern, den wir in Programm P 12 
behoben haben. Es sollte die Meldung "KEIN TEXT VORHANDEN!’ ausgegeben 
werden, wenn der Textspeicher keinen Text enthält. Diese Meldung können wir 
für unser Sondermenü 'TEXTPROBE AUF DEM DRUCKER' verwenden. Was müssen wir 
dazu tun? Wir sollten ein Unterprogramm schreiben, das nachprüft, ob der 
Textpuffer einen Text enthält. In dem Programm P16 sehen Sie das Unter- 
programm *U4*. Dieses Unterprogramm überprüft, ob der Textspeicher leer 
ist oder einen Text enthält. Ist kein Text vorhanden, wird die Meldung 
'KEIN TEXT VORHANDEN' ausgegeben. Danach führt der Rechner eine Warte- 
schleife durch, damit der Benutzer die Meldung lesen kann. Anschließend 
folgt ein Rücksprung zum Hauptmenü. Ersetzen Sie die Zeile 1025 des Pro- 
gramms P12 bzw. des laufenden Programms, indem Sie sich das Unterprogramm 
zunutze machen. Wie das geschieht, können Sie in Zeile 7303 des Sonder- 
menüs 'TEXTPROBE AUF DEM DRUCKER' sehen. Es wird zuerst geprüft, ob der 
Textspeicher überhaupt einen Text enthält. Danach muß gefragt werden, von 
welcher Zeile bis zu welcher Zeile die Textprobe auf dem Drucker aus- 
gegeben werden soll. Sie ahnen vielleicht schon, daß es sinnvoll ist, 
diesen Programmteil wieder als Unterprogramm zu schreiben. Aufgrund Ihrer 


6 Die Untermenüs werden programmiert 69 


7388 PRINT"TEXTPROBE AUF DEM DRUCKER" 

1382 PRINT a nn ” 

7383 GOSUB 9158 

73085 GOSUB 9188 

7318 OPEN 1,4,7 

7315 cMD1i 

7328 FOR I=ZA TO ZE 

325 PRINT#1,1;". ";,T$<CD 

7338 NEXT I 

7335 PRINT#1 

7348 CLOSE 1 

73939 GOTO 7888 

7488 PRINT’ TASTEN-WIEDERHOLUNSSFUNKT TION” 

92. PRINT urn . 

7485 PRINT 

7418 INPUT"WIEDERHOLUNSSFUNKTION <J/NDI";X$ 

7415 IF NOTCX#$="J" OR %$="N'") THEN PRINT"EINSABEFEHLER":GSOTO 7418 
7428 IF x%$="J" THEN POKE 658,128 

7425 IF x%$="N" THEN POKE 658,8 

7438 GOTO 7888 

8888 POKE 53272,21 

8818 PRINT"PROSRAMM BEENDET" 

8828 END 

9888 REM *Ui%* 

9885 PRINT"NOCH NICHT VERFUESBAR" 

9818 INPUT"WEITER <J/ND";A$ 

9815 IF A$<>"J" THEN 9818 

9828 RETURN 

9858 REM *U2%* 

9855 PRINT :PRINT:PRINT"WFUNKTIONSTASTE DRUECKENM'" 
9868 GET F$:IF F$="" THEN 9968 

9865 F=ASC<F$) :PRINT"R" 

9878 RETURN 

9188 REM *U3% 

9118 PRINT: INPUT"VON ZEILE, BIS ZEILE" ;ZA,ZE 

9115 IF ZA<=8 THEN PRINT"EINSABEFEHLER" :GOTO 9118 
9128 IF ZE<=8 THEN PRINT"EINSABEFEHLER":GOTO 9118 
9125 IF ZE>NZ THEN PRINT"ES SIND NUR ";NZ;" ZEILEN SESPEICHERT":SOTO 9118 
9138 IF ZA>ZE THEN PRINT"EINSABEFEHLER" :GOTO 9118 
9135 RETURN 

9158 REM *U4% 

9155 IF NZ>8B THEN 9178 

9157 PRINT"KEIN TEXT VORHANDEN" 

9168 FOR I=1 TO 1888:NEXT I 

9165 SOTO 188 

9178 RETURN 


Programm P 16 
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zunehmenden Programmiererfahrung können Sie sicherlich denken, daß 
wir diese Art von Eingabe auch in dem Menü "TEXT BEARBEITEN' verwenden 
können. Wir schreiben also das Unterprogramm *U3* des Programms P16. Der 
Benutzer wird gefragt, von welcher Zeile bis zu welcher Zeile der Text 
ausgegeben werden soll. Das Unterprogramm sollte sehr sorgfältig ge- 
schrieben werden. Dazu gehört, daß sämtliche Eingabefehler und Unstimmig- 
keiten bei der Eingabe abgefangen werden müssen. So darf beispielsweise 
die Startzeit nicht kleinergleich 0 sein. Die Endzeilennummer darf 
ebenfalls nicht kleinergleich 0 sein. Eine weitere Fehlermöglichkeit 
könnte dadurch entstehen, daß der Endwert kleiner als der Anfangswert ist. 
Was soll der Rechner tun, wenn Sie von ihm verlangen, den Text von Zeile 
7 bis Zeile 3 auszugeben? Trotzdem einige spitzfindige Leser der Mei- 
nung sein könnten, daß der Rechner nacheinander die Zeilen 7, 6, 5, 4 
und 3 ausdrucken könnte, ist das eigentlich nicht sinnvoll. Es ist besser, 
eine Fehlermeldung auszugeben und eine erneute Eingabe zu verlangen. 

Stellen Sie sich vor, Sie hätten 12 Textzeilen eingegeben. Anschlie- 
ßend möchten Sie die Zeilen 8-20 ausdrucken lassen. Dabei haben sie irr- 
tümlicherweise nicht berücksichtigt, daß die Zeilen 13-20 gar nicht 
existieren. Auch in diesem Fall sollte eine entsprechende Meldung aus- 
gegeben werden. Diese Fehlermöglichkeit ist in Zeile 9125 berücksichtigt 
worden. Nun wieder zurück zu unserem Menü "TEXTPROBE AUF DEM DRUCKER'. 
Wir springen in das Unterprogramm *U4* und danach in das Unterprogramm 
*U3*%. Der Text kann jetzt bequem in einer Schleife ausgegeben werden. 
Ignorieren Sie vorläufig die Zeilen 7310, 7315, 7335 und 7340 des 
Programms P16. Anstelle der Zeile 7325 denken Sie sich die Zeile 


7325" PRINT- 13".";T$(L) 


Ist Ihnen der Ablauf des Programms klar? Das Programm ist letztlich mit 
unserem Hauptmenü "TEXT AUSGEBEN' identisch. Die Änderung besteht ledig- 
lich darin, daß wir den Anfangswert und den Endwert der Schleife mit ZA 
und ZE setzen können. Damit ist es uns möglich, einen bestimmten Teil des 
Textes auszugeben. 

Der Text soll nun auf dem Drucker ausgegeben werden. Wir brauchen uns 
somit nicht mit der Beschränkung der Zeilen (wie bei dem Hauptmenü 2) 
aufzuhalten. In dem Drucker wurde Endlospapier eingespannt, damit ein be- 
liebig langer Text ausgegeben werden kann. Es mag aber trotzdem in einigen 
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Fällen sinnvoll sein, nach einer bestimmten Anzahl ausgegebener Text- 
zeilen anhalten zu können. Besitzen Sie einen Drucker mit Einzelblattzu- 
führung? Oder haben Sie eine Schreibmaschine mit Interface an Ihren 
COMMODORE angeschlossen? In diesen beiden Fällen ist es durchaus sinnvoll, 
am Ende eines Blattes anzuhalten, damit ein neues Blatt eingespannt werden 
kann. Wie dieses zu programmieren ist, ist Ihnen ja bereits bekannt. 
Sollte das nicht der Fall sein, ist es ratsam, sich noch einmal das Haupt- 
menü anzusehen. Sie werden dort die anzuwendende Technik finden. 

Wie können wir erreichen, daß der Text nicht auf dem Bildschirm, son- 
dern auf dem Drucker erscheint? Wir benötigen dazu den OPEN-Befehl, den 
Sie in der Zeile 7310 finden. Der COMMODORE 64 kann mit dem OPEN-Befehl 
Daten mit Geräten wie Kassettenrecorder, Diskettenlaufwerk oder Drucker 
austauschen. Auf das Schlüsselwort OPEN folgt eine Nummer, die einen Wert 
zwischen 0 und 255 annehmen darf. Bei dieser Nummer handelt es sich um die 
sogenannte "logische File-Nummer', auf die sich alle nachfolgenden Befehle 
beziehen. Mit dem Befehl OPEN wird nämlich ein File (= Datei) eröffnet, 
auf dem Daten ausgegeben, bzw. von dem Daten gelesen werden können. Diese 
logische File-Nummer muß einer Gerätenummer zugeordnet werden. Die Ge- 
rätenummer wird als zweite Zahl nach der logischen File-Nummer angegeben. 
In unserem Fall ist es die Zahl 4. Während die logische File-Nummer vom 
Programmierer frei gewählt werden kann, ist die Gerätenummer fest ver- 
geben. So hat beispielsweise der Drucker die Gerätenummer 4 oder 5. 
Welche Gerätenummer Ihr Drucker besitzt, müssen Sie aus dem Betriebs- 
handbuch entnehmen. In dem vorliegenden Fall wurde der COMMODORE-Drucker 
MPS 801 verwendet. Auf der Rückseite des Gerätes befindet sich ein Schal- 
ter, der zwischen 4 und 5 umgeschaltet werden kann. Sie können damit be- 
stimmen, welche Gerätenummer Ihr Drucker tragen soll. Aufgrund dieser 
Vorrichtung ist es möglich, zwei verschiedene Drucker anzuschließen. Die 
Gerätenummer wird auch als "physikalischer File' oder 'Device' bezeichnet. 
Nachdem mit dem OPEN-Befehl durch die ersten beiden Zahlen die logische 
File-Nummer mit der Gerätenummer verknüpft worden ist, muß die Sekundär- 
adresse angegeben werden. Durch die Sekundäradresse kann eine Reihe von 
Zusatzeinrichtungen gesteuert werden. Dazu sollten Sie das Handbuch für 
das jeweilige Gerät zu Rate ziehen. Für den Drucker MPS 801 bedeutet die 
Angabe der Sekundäradresse 7, daß dieser Drucker im Großschrift-/Klein- 
schrift-Modus betrieben werden soll. Der Drucker kann ähnlich wie der 
COMMODORE 64 entweder im Großschrift-/Kleinschrift- oder im Großschrift-/ 
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Grafik-Modus betrieben werden. 

Mit dem OPEN-Befehl wurde die Vorarbeit für die Ausgabe auf dem 
Drucker geleistet. Dem Rechner muß allerdings noch mitgeteilt werden, daß 
die Ausgabe des Textes über den Drucker erfolgen soll. Das geschieht durch 
den Befehl der Zeile 7315 'CMD'. CMD sendet Ausgaben, die normalerweise 
auf den Bildschirm gehen würden, auf ein anderes Gerät. Das kann ein 
Drucker, ein Daten-File auf Band oder Diskette sein. Das Gerät oder der 
File muß zuvor mit dem OPEN-Befehl geöffnet werden. Nach dem Kommando CMD 
wird die File-Nummer (in unserem Fall die 1) angegeben. 

In einem Programm können mehrere Files gleichzeitig geöffnet sein. Bei 
der PRINT-Anweisung ist es deshalb notwendig, nach dem PRINT-Befehl die 
File-Nummer anzugeben, auf die die Daten geschickt werden sollen. Dazu muß 
der PRINT-Befehl modifiziert werden. Nach dem Wort PRINT folgt '#' und die 
File-Nummer, auf die die Daten ausgegeben werden sollen. Sie können die 
Anwendung des Befehls in Zeile 7325 sehen. Nachdem die Ausgabe der Daten 
erfolgt ist, müssen wir die Ausgabe wieder auf den Bildschirm zurück- 
schalten. Dazu beenden wir mit dem Befehl PRINT #1 in Zeile 7335 die 
Ausgabe auf dem Drucker und schließen den File 1 mit dem Befehl 7340 CLOSE 
( 

Sie haben jetzt die Möglichkeit, den eingegebenen Text nicht nur auf 
dem Bildschirm zu sehen, sondern sich auch einen Ausdruck anzufertigen. 
Damit ist das Korrekturlesen des Textes erheblich einfacher geworden. 

Auch zum Schluß dieses Kapitels noch einmal der Hinweis, daß Sie sich 
mit den bisher erwähnten Funktionen des Textverarbeitungsprogramms ver- 
traut machen sollten, bevor in Kapitel 7 die Programmierung der Textbear- 
beitungsfunktionen folgt. Das Sondermenü 2 'TEXTPROBE AUF DEM BILDSCHIRM' 
wollen wir noch etwas zurückstellen. Wir werden es später im Zusammenhang 
mit einer Neufassung des Hauptmenüs 1 'TEXT EINGEBEN' und des Hauptmenüs 
2 "TEXT AUSGEBEN' programmieren. 


2 Es geht weiter mit der Textbearbeitung 


Die Systemanalyse für das Menü 'TEXTBEARBEITUNG' ist bereits im Abschnitt 
6.2 besprochen worden. Wir haben dort ebenfalls das Gerüst für dieses 
Menü aufgebaut. Aufgrund dieser Vorbereitungen wird es uns nicht schwer- 
fallen, die 'Lücken' des Menüs nach und nach aufzufüllen und die Textver- 
arbeitung zu programmieren. 


7.1 Zeilen werden gelöscht 


Als erste Textbearbeitungsfunktion werden wir das Löschen einer Text- 
zeile bzw. Textzeilen programmieren. Dieses Menü ist das einfachste der 
Textverarbeitungsfunktionen. Programm P17 zeigt die Lösung des Problems. 

Zunächst muß überprüft werden, ob der Textpuffer überhaupt gefüllt ist. 
Wir bedienen uns dazu des Unterprogramms *U4*. Dieses Unterprogramm be- 
ginnt ab Zeile 9150. Zu Beginn des Menüs '"ZEILE(N) LOESCHEN' springen wir 
mit der Zeile 5405 in das Unterprogramm *U4*. Wenn der Textpuffer einen 
Text enthält, wird das Programm mit der Zeile 5410 fortgesetzt. Wir sprin- 
gen mit dem Befehl GOSUB 9100 in das Unterprogramm *U3*. Sie sehen, wie 
einfach das Programmieren geworden ist, wenn wir unsere Sammlung von 
Unterprogrammen geschickt ausnutzen. Sollen Zeilen gelöscht werden, müssen 
wir dem Rechner mitteilen, um welche Zeilen es sich handelt. Dazu benutzen 
wir das Unterprogramm *U3*. Bevor wir aber die Zeilen wirklich löschen, 
sollten wir sicherheitshalber den Benutzer noch einmal fragen, ob er 
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5488 PRINT"ZEILE<“N)D LOESCHEN" 

BREI: PETERS SG messen nem u 

5485 SOSUB 93158 

54180 GSOSUB 93188 

5415 PRINT:PRINT"WOKE (JrtD", 

5428 INPUT#A$ 

5425 IF x$<c’"J" THEN 5998 

5427 IF ZA=1 AND ZE=NZ THEN NZ=8:69T0 5886 
>»428 IF ZE=NZ THEN NZ=ZA-1:60T0 59898 
5438 FOR I=ZE+i1 TO NZ 

5435 T$(ZA)=T$CD 

5440 zA=ZA+1 

5445 NEXT I 

5458 NZ=2ZRA-1 

>455 G0OTO 58088 


Programm P 17 


die angegebenen Zeilen wirklich löschen möchte. Diese Vorsichtsmaßnahme 
ist unbedingt notwendig, damit die Arbeit mehrerer Stunden oder Tage nicht 
durch unbeabsichtigtes Löschen verlorengeht. 

Eine Absicherung gegen unbeabsichtigtes Löschen ist im einfachsten 
Fall die wiederholte Abfrage, ob die angegebenen Textzeilen tatsächlich 
gelöscht werden sollen. Das geschieht in den Zeilen 5415-5425. Antwortet 
der Benutzer auf die Frage 


OK (J/N) 


nicht mit 'J', wird der Löschvorgang unterdrückt. Der Rechner springt 
wieder zur Anweisung mit der Nummer 5000. Anschließend wird das Menü 
'TEXTBEARBEITUNG' erneut ausgegeben. Beachten Sie bitte das Semikolon 
am Ende der Befehlszeile 5415. Dieses Semikolon bewirkt, daß die Eingabe 
in der gleichen Zeile, in der die Frage '0OK (J/N)' ausgegeben wird, 
erfolgt. Experimentieren Sie, indem Sie das Komma weglassen. Starten Sie 
das Programm; sehen Sie nach, was geschieht. Das Löschen der Textzeile 
bzw. der Textzeilen geschieht durch die Anweisungen mit den Nummern 5430- 
5450. Machen Sie sich die Funktionsweise dieses Programmteils klar! Der 
Ablauf des Programms ist einfach zu verstehen. Denken Sie sich einmal ein 
Beispiel aus. Füllen Sie in Gedanken den Textpuffer mit sieben Zeilen. 
In unserem Beispiel sollen die Zeilen 3-5 gelöscht werden. Wenn der 
Textpuffer 7 Zeilen enthält, hat die Variable NZ den Wert 7. Das Löschen 
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der Textzeilen geschieht wie folgt: Beginnend mit Textzeilennummer 3 wird 
der Text quasi "zusammengeschoben'. Die Zeile 6 wird auf den Platz der 
ehemaligen Zeile 3 gesetzt; Zeile 7 auf den Platz der ehemaligen Zeile 
4. Das ist alles, was getan werden muß, um die Zeilen 3-5 zu löschen. Es 
fehlt nur noch eine Kleinigkeit: NZ muß auf den Wert 4 gesetzt werden. 
Dieses geschieht in der Zeile 5450. 

Haben Sie das Programm verstanden? Lassen Sie probeweise die Zeile 
5450 aus. Geben Sie nach Eingabe eines Textes von sieben Zeilen und 
dem Löschen der Zeilen 3-5 den Text wieder aus. Sie werden sehen, daß 
insgesamt sieben Zeilen ausgegeben werden. Die vorletzte und letzte Zeile 
erscheint dabei doppelt: die vorletzte Zeile erscheint nämlich auch an 
dritter und die letzte Zeile an vierter Stelle. Das ist die Arbeitsweise 
des Algorithmus für das Löschen der Zeilen. Fügen Sie wieder die Zeile 
5450 in das Programm ein. Sie werden sehen, daß Sie nun das richtige 
Ergebnis erhalten. 

Beim Löschen der Zeilen gibt es zwei Sonderfälle. 

Der erste Sonderfall tritt auf, wenn der gesamte Textpuffer gelöscht 
werden soll. In diesem Fall ist der Wert der ersten zu löschenden Zeile 
gleich eins und der Wert der letzten zu löschenden Zeile gleich der Anzahl 
der abgespeicherten Zeilen im Textpuffer. Dieser Fall wird in der Anweisung 
5427 berücksichtigt. 

Der zweite Sonderfall tritt auf, wenn nur die letzten n Zeilen des 
Textpuffers gelöscht werden sollen. Hier ist es nicht notwendig, den Text 
wie oben erwähnt 'zusammenzuschieben'. Es genügt, nur die Anzahl der ab- 
gespeicherten Zeilen zu verändern, d. h. den Wert für NZ entsprechend zu 
setzen. Dieser Sonderfall ist in der Anweisung 5428 programmiert worden. 
überprüfen Sie sich selbst, ob Sie das Programm für dieses Menü richtig 
verstanden haben. Beantworten Sie dazu folgende Frage: Müssen die beiden 
Sonderfälle in den Programmzeilen 5427 und 5428 wirklich gesondert 
programmiert werden, oder werden sie "automatisch' durch das Programm in 
den Zeilen 5430-5450 berücksichtigt? Wenn Sie das Buch bis jetzt richtig 
durchgearbeitet haben, werden Sie die Antwort auf diese Frage wissen. 


7.2 Zuerst werden die notwendigen Unterprogramme erstellt 


Wenn Sie bisher die Programmierung des Textverarbeitungsprogramms auf- 
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merksam verfolgt haben, haben Sie sicherlich schon einige Erfahrungen 
sammeln können. Sie werden aus Ihren Fehlern gelernt und sich 
einen eigenen Programmierstil angeeignet haben. Eines sollten Sie aber 
niemals vergessen: die Unterprogrammtechnik. 

Bevor wir von dem Menü Textbearbeitung die Menüs "WORT SUCHEN", 
'WORT LOESCHEN' und "WORT KORRIGIEREN!" programmieren wollen, sollten wir 
uns zuvor Gedanken darüber machen, ob wir möglicherweise gleichartige 
Programmteile für alle drei Menüs verwenden können. Denken Sie darüber 
nach, bevor Sie weiterlesen. Ein Programmteil, den wir in allen drei 
Menüs verwenden können, ist die Simulierung der INDEX-Funktion. Mit dieser 
INDEX-Funktion kann man feststellen, ob innerhalb einer Zeichenkette eine 
bestimmte Teilkette vorkommt. Die INDEX-Funktion ist bei einigen BASIC- 
Versionen direkt vorhanden. Der COMMODORE 64 hat sie leider nicht. Wir 
müssen uns deshalb selbst ein Unterprogramm schreiben, mit dem wir die 
INDEX-Funktion nachbilden. 

Nachstehend wird ein Beispiel für die Arbeitsweise der INDEX-Funktion 
angegeben. Suchen wir beispielsweise in dem Text "DORTMUND! nach der Teil- 
kette 'ORT', hat die INDEX-Funktion den Wert 2, da die Teilkette ORT mit 
dem zweiten Zeichen des Textes beginnt. Ist die gewünschte Teilkette 
nicht in der Zeichenkette enthalten, soll die INDEX-Funktion den Wert 0 
annehmen. Damit die INDEX-Funktion möglichst universell einsetzbar ist, 
wollen wir sie so flexibel gestalten, daß der Startpunkt bestimmt werden 
kann, von dem aus in einer Zeichenkette nach einer bestimmten Teilkette ge- 
sucht wird. Zurück zu dem obigen Beispiel. Suchen wir in der Zeichen- 
kette 'DORTMUND' z. B. von der vierten Stelle aus nach der Teilkette 'ORT', 
erhält die INDEX-Funktion den Wert 0. 

Auf den ersten Blick scheint die Programmierung der INDEX-Funktion 
schwierig zu sein. Wie geht man in einem solchen Fall am besten vor? Wenn 
wir uns das bisherige Textverarbeitungsprogramm ansehen, stellen wir fest, 
daß das nächste Unterprogramm *U5* heißen muß und mit Zeile 1200 beginnen 
sollte. Dieses Unterprogramm soll jetzt programmiert werden. 

Um das Testen des Unterprogramms etwas zu erleichtern, befreien wir 
uns von dem "'Ballast' des übrigen Textverarbeitungsprogramms. Mit dem 
Befehl NEW löschen wir den Arbeitsspeicher und geben ab Zeile 9200 das 
Unterprogramm *U5* zur Simulierung der INDEX-Funktion ein. Dieses Programm 
wird jetzt mit einem Hauptprogramm getestet. Sehen Sie sich das Pro- 
gramm P18 an. 
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18 INPUT %$ 

28 INPUT W$ 

38 INPUT DA 

48 GOSUB 9288 

58 IF ID=8 THEN PRINT"WORT NICHT VORHANDEN” 
68 IF ID>8 THEN PRINT"WORT AB STELLE ";ID 
8 END 

92088 REM XU5%k 

9285 A=LEN<(W$) 

9218 IF DA > LEN<K#$)-X+1 THEN 9238 

9215 FOR D=DA TO LENCK$I-R+1 

9228 IF MID$(CX$,D,x)=W$ THEN ID=D:RETURN 
9225 NEXT D 

9238 I1D=8:RETURN 


Programm P 18 


In Zeile 10 geben wir in X$ die Zeichenkette ein. In Zeile 20 wird 


auf die Variable W$ die Teilkette eingelesen. In Zeile 30 wird schließ- 
lich die Anfangsstelle angegeben, von der aus die Überprüfung erfolgen 
soll. Das Unterprogramm *U5* überprüft somit, inwieweit die Zeichenkette 
W$ ab der Stelle DA in der Zeichenkette X$ enthalten ist. Von dem Unter- 
programm *U5* wird dann an das Hauptprogramm der Wert ID zurückgegeben. 
Ist ID größer als 0, enthält die Variable ID die Anfangsstelle, von der ab 
die Zeichenkette W$ in der Zeichenkette X$ enthalten ist. Ist ID gleich 0, 
enthält die Zeichenkette X$ nicht die Teilkette W$. 

In Zeile 40 des Hauptprogramms erfolgt der Sprung in das Unter- 
programm *U5*. Danach wird der Wert für ID in den Zeilen 50 und 60 über- 
prüft und mit einer entsprechenden Meldung ausgegeben. 

Wie funktioniert das Unterprogramm *U5*? Sehen Sie sich die ent- 
sprechenden Programmzeilen an. Über die Zeichenkette X$ wird ein "Fenster! 
von der Länge der Zeichenkette W$ geschoben. Der "Aufsetzpunkt' für das 
'Fenster' beginnt bei der Stelle DA. Mit der Anweisung 9220 wird der 
Vergleich durchgeführt, um zu prüfen, ob der Inhalt des Fensters identisch 
mit der zu prüfenden Zeichenkette W$ ist. Das 'Fenster' wird dabei durch 
die Textfunktion MID$ simuliert. Starten Sie das Programm P18 mit einem 
überschaubaren Testdatensatz. Tippen Sie beispielsweise für X$ das Wort 
'DORTMUND'; für W$ das Wort 'ORT' ein, und beginnen Sie mit dem Wert 1 
für DA. In diesem Fall werden Sie für ID den Wert 2 erhalten. Erhöhen Sie 
DA z. B. auf 3. Starten Sie das Programm erneut. Sie sollten Sich die 
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Funktionsweise dieses Programms unbedingt klar machen, bevor Sie weiter- 
lesen. 

Genügt das vorgestellte Unterprogramm *U5* Ihren Anforderungen? 
Könnten Sie sich eventuell eine Erweiterung oder eine Verbesserung vor- 
stellen? 

Starten Sie das Programm P18 mit den Werten 'HIER UND HEUTE! für X$, 
'HEU'" für W$ und 1 für DA. In diesem Fall erhalten Sie für ID den Wert 10. 
Der Rechner hat also überprüft, ob die Teilkette 'HEU' in der Zeichen- 
kette 'HIER UND HEUTE! vorkommt. Das ist natürlich der Fall, da 'HEU' in 
'HEUTE' enthalten ist. Stellen Sie sich vor, Sie wollten das Tierfutter 
'HEU' aus dem Text einer Abhandlung über Landwirtschaft heraussuchen. In 
diesem Fall würde die obige Antwort nicht so ganz Ihren Erwartungen ent- 
sprechen. Man muß also bei dem Suchen zwischen zwei Fällen unterscheiden: 


1. Suchen nach Teilkette 
2. Suchen nach Begriffen 


Im zweiten Fall müssen Sie auch darauf achten, daß der Begriff 'allein' 
steht. Die Überprüfung kann vorgenommen werden, indem der Begriff durch 
zwei Leerzeichen eingeschlossen wird. Kommt nämlich ein Wort innerhalb 
eines Satzes als feststehender Begriff vor, steht vor und nach dem be- 
treffenden Wort ein Leerzeichen. Dieses Kriterium wird zwar in den meisten 
Fällen ausreichend sein, genügt letztlich aber nicht. Der Begriff könnte 
ja auch am Ende eines Satzes stehen! In diesem Fall steht rechts von dem 
Begriff kein Leerzeichen, sondern ein Punkt. Es ist außerdem möglich, daß 
auf das betreffende Wort ein Nebensatz (d. h. ein Komma) folgt. Weitere 
Möglichkeiten sind ein Gedankenstrich, der dem Begriff vorausgehen oder ihm 
folgen kann, oder Anführungszeichen, die den Begriff einschließen. 

Schon an dieser kleinen Systemanalyse können Sie erkennen, daß eine 
ganze Anzahl von Sonderfällen zu berücksichtigen sind. Versuchen Sie das 
Programm P18 so zu erweitern, daß wahlweise beide oben beschriebenen Fälle 
bearbeitet werden können. 

Für die folgenden Ausführungen wollen wir uns auf den Fall 1 be- 
schränken. Dieser Fall ist der allgemeinere und schließt Fall 2 letztlich 
mit ein. Sie sollten sich aber nicht davon abbringen lassen, Ihr eigenes 
Unterprogramm *U5* später in das Textverarbeitungsprogramm einzubauen. 

Lassen Sie uns jetzt ein anderes Unterprogramm betrachten. Wenn wir 
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das gesuchte Wort gefunden haben, sollte der Rechner dem Benutzer zeigen, 
an welcher Stelle das Wort steht. Im einfacheren Fall würde es genügen, 
nur die Zeile auszugeben, in der das gesuchte Wort bzw. die Text- 
stelle vorkommt. Wir wollen aber unser Programm so benutzerfreundlich wie 
möglich gestalten. Dazu geben wir die Zeile aus, in der die Textstelle 
vorkommt und kennzeichnen die Textstelle, indem wir sie im REVERSE-Modus 
ausgeben. In Programm P19 ist die Programmierung dieser Problemstellung 
zu sehen. 

Testen Sie dieses Programm, indem Sie beispielsweise für X$ den Wert 
'DORTMUND', für W$ den Wert 'ORT' und für ID den Wert 1 eingeben. Sie 


18 INPUT X%$ 

28 INPUT W$ 

38 INPUT ID 

48 GOSUB 9258 

58 END 

9258 REM KuUsk 

9255 IF ID=8 THEN PRINT X&$:RETURN 

9268 *xD=LEN(CA$)-CID+LENCH$S) -1) 

9265 IF xD=8 THEN PRINT LEFT$(CXK$,ID-2,; "WW ;W$;, "WW" 
9278 IF #&D>8 THEN PRINT LEFT$CK$,ID-1); "WW" ;WN$;,"E" ;ZRIGHTSCAÄ$,AD) 
9275 RETURN 


Programm P 19 


werden feststellen, daß wieder der Text "DORTMUND" ausgegeben wird; die 
Teilkette 'ORT' erscheint dabei im REVERSE-Modus. 

Wir sollten uns nun der Programmierung von Textbearbeitungsfunktionen 
zuwenden. Um Ihnen einen besseren Überblick zu geben, sind in Abbildung 13 
sämtliche Unterprogramme unseres Textverarbeitungssystems aufgeführt. 
Sehen Sie sich die Abbildung 13 noch einmal intensiv an. Im nächsten Ab- 
schnitt werden Sie erfahren, wie einfach die Programmierung der Text - 
verarbeitung durch Verwendung unserer Unterprogrammsammlung *U1* bis *U6* 
15T. 
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9888 REM KkUik 

9885 PRINT"NOCH NICHT VERFUESBAR" 

9818 INPUT"WEITER (J/NI" ;A$ 

9815 IF A$<>"J" THEN 9018 

9828 RETURN 

9858 REM kU2%*k 

9855 PRINT :PRINT:PRINT"WFUNKTIONSTASTE DRUECKENEM" 
9868 SET F$: IF F$="" THEN 9868 

9865 F=ASC<F$) :PRINT"G" 

9878 RETURN 

9188 REM kU3# 

9118 PRINT: INPUT"VON ZEILE, BIS ZEILE" ;ZzA,ZE 

9115 IF ZA<=8 THEN PRINT"EINGSABEFEHLER" :SOTO 9118 
9128 IF ZE<=@ THEN PRINT"EINSABEFEHLER" :GOTO 9118 
9125 IF ZE>NZ THEN PRINT"ES SIND NUR ";NZ;" ZEILEN GESPEICHERT":GOTO 9118 
9138 IF ZA>ZE THEN PRINT"EINSABEFEHLER" :GOTO 9118 
9135 RETURN 

9158 REM #U4%* 

9155 IF NZ>8 THEN 9178 

9157 PRINT"KEIN TEXT VORHANDEN" 

9168 FOR I=1 TO 1888:NEXT I 

9165 GOTO 188 

9178 RETURN 

9288 REM KUS%k 

9285 X=LEN<CHW$) 

9218 IF DA > LEN<X$)I-KX+1 THEN 9238 

9215 FOR D=DA TO LEN(K$I-K+1 

9228 IF MID$<X$,D,X)=W$ THEN ID=D:RETURN 

9225 NEXT D 

9238 ID=8:RETURN 

9258 REM kU6%k 

9255 IF ID=8 THEN PRINT X$:RETURN 

9268 KXD=LEN<K$)-CID+LENCH$) -1) 

9265 IF XD=8 THEN PRINT LEFT$<CK$,1ID-1) ; "WW" ;WS; "er" 
9278 IF XD>8 THEN PRINT LEFTSCK$S,ID-1) ;"W" ;W$; "WE" ;RIGHTSCKS$,XD) 
9275 RETURN 


Abb. 13 Unterprogramme *U1l* bis *U6* 
unseres Textverarbeitungssystems 
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7.3 Eine Textstelle wird gesucht 


Wir wollen der Reihe nach vorgehen und zuerst das Menü 'WORT SUCHEN! 
programmieren. Sehen Sie sich das Programm P20 an. 


5188 PRINT"WORT SUCHEN" 

»182 PRINT See ” 

5185 PRINT: INPUT"WORT EINGEBEN"; WM$ 
5118 GOSUB 9188 

5115 FOR I=ZrA TO ZE 

51286 %$=T$(D 

5125 DA=1 

5138 GOSUB 9288 

5135 IF ID=8 THEN 5168 

5148 PRINT'"K":PRINT"ZEILE W";,1;,"w@' 
5142 PRINT:GOSUB 93258 

5144 PRINT:PRINT: INPUT"WEITER <J/NI";,AR$ 
5146 IF x%x$="J" THEN 5158 


5147 IF xX$="N'" THEN 5888 

5148 GSOTO 5144 

5158 DA=ID+LEN<W$) 

5155 IF DA<LENCK#$)-LEN(H$) +1 THEN 5138 
5168 NEKAT I 

>199 GSOTO 5888 


Programm P 20 


In Zeile 5105 geben wir das Wort ein, das wir in unserem Text suchen 
wollen. Der Begriff 'Wort' soll hier nicht mißverstanden werden. Gemeint 
ist letztlich eine beliebige Textstelle. In der Zeile 5110 machen wir uns 
wieder das Unterprogramm *U3* zunutze. Der Anwender kann sich aussuchen, 
in welchem Textbereich er nach einem bestimmten Wort suchen möchte. Dazu 
gibt er die Anfangs- und Endzeile ein. Wir könnten eine Schleife aufbauen, 
deren Laufindex den Startwert ZA und den Endwert ZE besitzt. Innerhalb 
dieser Schleife müssen wir nur das Unterprogramm *U5* aufrufen. Wenn Sie 
sich damit begnügen wollen, können Sie das Programm so schreiben. Inner- 
halb der Schleife wird das Unterprogramm *U5* aufgerufen; danach er- 
folgt die Ausgabe der Textzeile durch das Unterprogramm *U6*, 

Mit dieser einfachen Programmversion kann nicht festgestellt werden, 
ob das zu suchende Wort mehrfach innerhalb einer Textzeile vorkommt. Wir 
würden nur das erste Auftreten des Wortes innerhalb der betreffenden 
Textzeile aufzeigen. Sie sehen, warum wir das Programm *U5* zur Simulie- 
rung der INDEX-Funktion so variabel geschrieben haben. Durch Änderung des 
Startwertes ist es möglich, auch das mehrfache Auftreten eines Wortes 
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innerhalb einer Zeile feststellen zu können. Wir müssen nur das Unter- 
programm *U5* geschickt anwenden. In Programm P20 können Sie sehen, wie 
dieses durchgeführt werden kann. 

Die oben erwähnte Schleife umschließt die Anweisung 5115 - 5160. 
Die laufende Textzeile wird in Zeile 5120 auf der Variablen X$ zwischen- 
gespeichert. Anschließend wird der Startwert für die Verschiebung des 
Fensters über die laufende Textzeile auf 1 gesetzt. Der Sprung in das 
Unterprogramm *U5* erfolgt in Zeile 5130. Wenn von dem Unterprogramm *U5* 
ein Wert von 0 für die Variable ID an das Hauptprogramm zurückgegeben 
wird, ist das gewünschte Wort in der laufenden Textzeile nicht gefunden 
worden. In diesem Fall wird zur nächsten Textzeile übergegangen. Der 
Rechner springt also zur Anweisung mit der Nummer 5160. Ist das gewünschte 
Wort in der Zeile gefunden worden, wird der Bildschirm gelöscht. Danach 
wird die Nummer der laufenden Textzeile ausgegeben. Durch die Anweisung 
5142 erscheint die Textzeile auf dem Bildschirm; das gesuchte Wort er- 
scheint dabei im REVERSE-Modus. Der Benutzer wird anschließend gefragt, 
ob die Ausführung des Programms fortgesetzt werden soll. Falls eine Fort- 
setzung gewünscht wird, prüft der Rechner, ob in der laufenden Zeile das 
Wort noch einmal vorkommt. Dazu wird der Wert für DA verändert und das 
Unterprogramm *U5* in Zeile 5130 erneut aufgerufen. Dieser Programmab- 
lauf wird so lange fortgesetzt, bis das Ende der betreffenden Textzeile 
erreicht ist. Erst danach wird zur nächsten Textzeile übergegangen. 


7.4 Ein Wort soll gelöscht werden 


Es wurde bereits angedeutet, daß ein guter Programmierer geschickt von 
sich selbst abschreiben kann. Wenn Sie genau wissen, wie Sie ein Wort 
innerhalb eines Textes suchen können, dürfte es Ihnen keine Schwierig- 
keiten bereiten, dieses Wort in der Textzeile zu löschen. Das Programm 
P21 zeigt Ihnen die Lösung des Problems. Wenn Sie sich das Programm 
genau ansehen, werden Sie feststellen, daß es dem Programm P20 sehr ähnelt; 
nur der mittlere Teil des Programms ist etwas anders gestaltet. Durch die 
Zeilen 5240-5244 wird das betreffende Wort aus der Textzeile gelöscht. 
Dazu wird die Textzeile "links! und 'rechts' von dem zu löschenden Wort 
mit dem Operator '+! verkettet. Wenn Sie ganz genau hinsehen, können Sie 
auch selbst diesen Programmteil wiedererkenner. Haben Sie ihn entdeckt? 
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>s288 PRINT"WORT LOESCHEN”" 

BEBE PRINT" mrmnmernamuur ” 

5285 PRINT: INPUT"WORT EINSEBEN” ;W$ 
>s218 GOSUB 9188 

5215 FOR I=ZrA TO ZE 

>s228 *$=T$(D 

s>s225 DA=1 

>s238 GSOSUB 9288 

s235 IF ID=8 THEN 52938 

5248 AD=LEN(CA$)-CID+LENCH$) -1D 

s242 IF xD=8 THEN %$=LEFT$CA$,ID-1D 
5244 IF »D>8 THEN %$=LEFT$CA$,ID-1) +RISHT$CA$,AD) 
5246 PRINT"ER"”:PRINT"ZEILE W’;T;,'W" 
5248 T$CD=X$ 

5258 PRINT:PRINT T$<D) 

5255 PRINT: PRINT: INPUT'"'WEITER <J/N";%%$ 
5268 IF x%$="J'" THEN 5278 

>262 IF AX$="N" THEN 5299 

5265 GOTO 5255 

5278 DA=ID+LENSW$) 

>s275 IF DAZLENCKSI-LENISHS) +1 THEN 5238 
5288 NERT I 

5299 GSOTO 5888 


Programm P 21 


Richtig! Dieser Programmteil ist in dem Unterprogramm *U6* enthalten. 
Vergleichen Sie die Zeilen 5240 und 9260, sowie die Zeilen 5242 und 5244 
mit 9265 bzw. 9270. Sie sehen, es lohnt sich, über ein Problem intensiv 
nachzudenken und die Lösung dann geschickt an die verschiedenen Stellen 
eines Programms zu setzen. 

Zu dem Programm P21 muß eigentlich nichts mehr gesagt werden. Sollten 
Sie das Programm nicht verstehen, liegt es daran, daß Sie die vorange- 
gangenen Programme nicht intensiv genug durchgearbeitet haben. Blättern 
Sie ruhig ein paar Seiten zurück, und sehen Sie sich die 'alten' Pro- 
gramme noch einmal an. 


7.5 Wir korrigieren Tippfehler 


Das letzte, was in diesem Kapitel noch getan werden muß, ist die Pro- 
grammierung des Menüs "WORT KORRIGIEREN'. Die Realisierung dieses Pro- 
gramms dürfte Ihnen keine Schwierigkeiten bereiten. Versuchen Sie es 
selbst, bevor Sie nachsehen, wie das Problem in Programm P22 gelöst ist. 
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53868 PRINT"WORT KORRIGIEREN" 
5302 PRINT"------- - - -- - - - -- m) 


5385 PRINT 
5386 INPUT"ZU KORRIGIERENDES WORT" ;M$ 
5387 INPUT"KORREKTUR ";AK$ 


5318 SOSUB 9108 

5315 FOR I=ZA TO ZE 

5328 8$=T$CID) 

5325 DA=1 

5338 GOSUB 9288 

5335 IF ID=8 THEN 5388 

5348 *xD=LEN(CK$)-CID+LENCH$)I-1) 

5342 IF *»D=8 THEN *$=LEFT$(CK$,ID-1) +WK$ 

5344 IF xD>8 THEN X8$=LEFT$CK$,ID-1) +WK$+RIGHT$CK$, XD) 
5346 PRINT "GW" :PRINT"ZEILE W";T; "ww" 

5348 T$CD=X$ 

5358 PRINT :D1$=H$:D2$=WK$ :W$=WK$:GOSUB 9258:H$=D1$:WK$=D2$ 
5355 PRINT :PRINT: INPUT"”WEITER (J/ND" ;RK$ 

5368 IF x8%$="J" THEN 5378 

5362 IF »x%$="N" THEN 5399 

5365 GOTO 5355 

5378 DA=ID+LENCH$) 

5375 IF DA<LENSK$I-LENCHS$) +1 THEN 5338 

5388 NEXT I 

5399 GOTO 5888 


Programm P 22 


Wir geben in Zeile 5306 das zu korrigierende Wort ein. Danach folgt 
in Zeile 5307 die Angabe der Korrektur. Der Begriff 'Wort' soll hier nicht 
unbedingt wörtlich verstanden werden. Wir können mit diesem Menü auch ein 
einzelnes Zeichen (z. B. einen Buchstaben) gegen ein anderes austauschen. 
Es ist ebenfalls möglich, Silben oder Textpassagen zu korrigieren. 

In Zeile 5310 wird das Unterprogramm *U3* aufgerufen. Wir wollen dem 
Benutzer auch bei dem Menü 'WORT KORRIGIEREN!" erlauben, seine Korrektur 
auf einen bestimmten Textbereich zu beschränken. Der übrige Aufbau des 
Menüs ist dem Aufbau der Programme P20 und P21 sehr ähnlich. Wir suchen 
zuerst nach dem zu korrigierenden Wort, indem wir das Unterprogramm *U5* 
aufrufen. Ist das zu korrigierende Wort gefunden, wird die Korrektur aus- 
geführt. Dabei verfahren wir wie in dem Programm P21, indem wir die 
Teilzeichenkette links und rechts von dem zu korrigierenden Wort heraus- 
filtern. Anschließend bilden wir die korrigierte Zeichenkette, indem wir 
in der Mitte die Korrektur 'einflicken'. Sie sehen die Programmierung in 
den Zeilen 5340-5344. 
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Damit der Benutzer die Korrekturen überprüfen kann, wird anschließend 
die korrigierte Zeile auf dem Bildschirm ausgegeben. Dazu wird das Unter- 
programm *U6* verwendet. Um die Korrektur für den Benutzer des Textsystems 


deutlich sichtbar zu machen, erscheint die Korrektur im REVERSE-Schrift- 
modus. 


Starten Sie das Programm und machen Sie sich mit der Funktionsweise 
vertraut. 


Im folgenden Kapitel werden wir überprüfen, welche Punkte unseres 
Textverarbeitungsprogramms bereits realisiert wurden und welche Punkte 
noch fehlen. Sie sollten sich dazu mit dem vorliegenden Programm bestens 
vertraut machen. In Abbildung 14 sehen Sie noch einmal das komplette Pro- 
gramm. 


18 DIM T$(488) 

28 POKE 53272 ,23:NZ=8 

188 PRINT" 

185 PRINT "HAUPTMENUE" 

4118 PRINT "---------- ":PRINT:PRINT 

4115 PRINT"Fi - TEXT EINGEBEN" :PRINT 
128 PRINT"F2 - TEXT AUSGEBEN" :PRINT 
125 PRINT"F3 - TEXT SPEICHERN" :PRINT 
138 PRINT"F4 - TEXT ABRUFEN" :PRINT 

135 PRINT"FS - TEXT BEARBEITEN" :PRINT 
148 PRINT"F& - TEXT VERARBEITEN" :PRINT 
143 PRINT"F7 - SONDERFUNKTIONEN" :PRINT 
444 PRINT"F8 - PROGRAMM BEENDEN" :PRINT 
158 GOSUB 9858 

4162 IF NOT<F>=133 AND F<=148) THEN 188 
165 ON F-132 60T0 10808 ,3008 ‚5888, 7808 ‚2088 ,4880 ,6888 ‚8988 
1888 PRINT"TEXT EINGEBEN" 

1885 PRINT"------------- "PRINT 

1828 NZ=NZ+4 

1825 IF NZ=481 THEN PRINT"%*% DATEI VOLL *%k":FOR I=1 TO 1888:NEXT 1:60T0 1868 
1838 PRINT" ;NZ;"@" 

1848 INPUT T$(NZ) 

10858 IF T$CNZICH"HER" THEN 1028 

1868 NZ=NZ-1:60T0 188 
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2988 
2885 
2987 
2818 
20828 
2838 
2848 
2845 
20847 
2858 
28686 
2978 
2888 
3888 
3885 
3886 
3818 
4888 
4885 
4886 
4818 
5888 
5895 
5818 
5815 
5828 
5825 
5838 
5835 
5858 
5855 
5968 
5861 
5862 
50863 
5864 
5865 
5866 
5869 
5188 
5182 
5185 
51108 
5115 
5128 
5125 
5138 
5135 
5148 
5142 
5144 
5146 
5147 
5148 
51508 


PRINT"TEXT AUSGEBEN" 
PRINT"------------- ":PRINT 

GOSUB 9158 

FOR I=1 TO NZ 

PRINT T$cD 

IF 1/28<>INT<I/28) THEN 2858 
PRINT: INPUT"WEITER <J/ND" ;A$ 

IF AS" J" THEN 2848 

PRINT"R" 

NEXT I 

PRINT: INPUT"WEITER <J/ND" ;A$ 

IF A$<C>"J" THEN 2868 

SOTO 188 

PRINT"TEXT SPEICHERN" 
PRINT"-------------- ":PRINT 
GOSUB 9888 

G0OTO 188 

PRINT"TEXT ABRUFEN" 
PRINT"------------ "PRINT 

GOSUB 9888 

SOTO 188 

PRINT"K" :PRINT"TEXT BEARBEITEN" 
PRINT" --------------- ":PRINT 
PRINT"i - WORT SUCHEN" :PRINT 
PRINT"2 - WORT LOESCHEN" :PRINT 
PRINT"3 - WORT KORRIGIEREN" :PRINT 
PRINT"4 - ZEILE<N) LOESCHEN" :PRINT 
PRINT"S - ZEILE<ND EINFUEGEN" :PRINT 


PRINT"6 - ZEILE<N) VERSCHIEBEN” :PRINT 


PRINT"8 - HAUPTMENUE" 

GSOSUB 9858 

IF F=133 THEN 5188 

IF F=137 THEN 5288 

IF F=134 THEN 5388 

IF F=138 THEN 5488 

IF F=135 THEN 5508 

IF F=139 THEN 5688 

IF F=148 THEN 188 

G0OTO 5888 

PRINT"WORT SUCHEN” 
PRINT'"----- - - ” 

PRINT: INPUT"WORT EINGEBEN" ;W$ 
GSOSUB 9188 

FOR I=ZA TO ZE 

x$=T$CI) 

pAa=1 

GOSUB 9288 

IF ID=8 THEN 5168 

PRINT"G"” :PRINT"ZEILE WW"; 1; "WW" 
PRINT :GOSUB 9258 

PRINT :PRINT: INPUT"WEITER <(J/NI" ;RX$ 
IF x%$="J" THEN 5158 

IF Xx$="N" THEN 5888 

SoTo 5144 

DA=ID+LEN<W$) 


Wir korrigieren Tippfehler 
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5155 
5168 
5199 
52088 
>282 
5285 
5218 
5215 
5228 
>225 
5238 
5235 
5248 
5242 
5244 
5246 
5248 
5259 
5255 
5268 
5262 
5265 
5278 
5275 
5288 
5299 
5388 
5382 
5385 
5386 
5387 
53108 
5315 
5328 
5325 
5338 
5335 
5348 
5342 
5344 
5346 
5348 
5358 
5355 
5368 
5362 
5365 
5378 
5375 
5388 
5399 


IF DACLEN<K$I-LENCW$) +1 THEN 5138 
NEXT I 

G0TO Saaa 

PRINT"WORT LOESCHEN" 
PRINT"------------- " 
PRINT : INPUT"HORT EINGEBEN" ;W$ 


GOSUB 9188 

FOR I=ZA TO ZE 

X$=T$(D) 

DA=1 

GOSUB 9288 

IF ID=8 THEN 5288 
XD=LENCK$)-CID+LENCH$)-1) 

IF XD=8 THEN X$=LEFT$CK$, ID-1) 

IF XD>8 THEN X$=LEFT$CK$, ID-1) +RIGHT$CK$,XD) 
PRINT"K" :PRINT"ZEILE "; I; "w" 
T$(D=xX$ 

PRINT:PRINT T$<D 

PRINT :PRINT: INPUT"WEITER (J/ND" ;KXS$ 
IF KX$="J" THEN 5278 

IF XX$="N" THEN 5299 

GOTO 5255 

DA=ID+LENCHS$) 

IF DA<CLEN<K$)-LENCH$)I +1 THEN 5238 
NEXT I 

60TO 5888 

PRINT"WORT KORRIGIEREN" 
PRINT"--=--- " 

PRINT 

INPUT"ZU KORRIGIERENDES WORT" ;W$ 
INPUT"KORREKTUR ";uK$ 
SOSUB 9188 

FOR I=ZA TO ZE 

2$=T$(1) 

DA=1 

GOSUB 9288 

IF ID=8 THEN 5388 

XD=LEN(CK$) -CID+LENCH$)-1) 

IF XD=8 THEN X$=LEFT$CK$, ID-1) +WK$ 
IF XD>8 THEN X$=LEFT$CKS$, ID-1) +WK$+RIGHTSCK$,XD) 
PRINT "Ki" :PRINT"ZEILE g";T;"w" 
T$CD=%$ 

PRINT: Di$=W$ :D2$=WK$ :W$=WK$:GOSUB 9258 :W$=D1$:WK$=D2$ 
PRINT :PRINT: INPUT"WEITER (J/ND" ;RX$ 
IF KX$="J" THEN 5378 

IF KX$="N" THEN 5399 

60TO 5355 

DA=ID+LEN<WS$) 

IF DALLENCK$I-LENCW$)I +1 THEN 5338 
NEXT I = 

60TO 5888 
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54886 
5482 
5485 
5418 
5415 
5428 
5425 
5427 
5428 
5438 
5435 
5448 
5445 
5458 
5455 
5508 
5582 
5585 
5586 
56908 
5692 
5685 
5686 
6888 
6885 
6886 
6818 
7888 
7-ee1i 
78085 
7818 
7815 
7828 
7-21 
7848 
7845 
7858 
7851 
7852 
7853 
79854 
7859 
7188 
7182 
7185 
7118 
7138 
7198 
7199 
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PRINT"ZEILE<N) LOESCHEN"" 

PRINT" --------- -- RR 

SOSUB 9158 

GOSUB 9188 

PRINT :PRINT"EOKE (J/ND"; 

INPUTX$ 

IF %$<c>"J" THEN 5888 

IF ZA=1 AND ZE=NZ THEN NZ=8:60T0 5088 
IF ZE=NZ THEN NZ=2ZA-1:60T0 5888 

FOR I=ZE+1 TO NZ 

T$(ZAI=T$CH 

za=ZA+1 

NEXT I 

NZ=2ZA-1 

SOTO 5888 

PRINT"ZEILE<N) EINFUESGEN" 
PRINT ” 

SOSUB 9888 

SOTO 5898 

PRINT"ZEILE<N) VERSCHIEBEN" 

PRINT" men nn au 

GOSUB 9888 

SOTO 5888 

PRINT" TEXT VERARBEITEN" 
PRINTY-memnanuuunannum ":PRINT 

GSOSUB 9888 

GOTO 188 

PRINT"W”" 

PRINT"SONDERFUNKT TIONEN" 

PRINT" -—----- --- nun nn ":PRINT 

PRINT "1 - FREIER SPEICHERPLATZ":PRINT 
PRINT "2 - TEXTPROBE AUF DEM BILDSCHIRM" :PRINT 
PRINT "3 - TEXTPROBE AUF DEM DRUCKER" :PRINT 
PRINT"4 - TASTEN-WIEDERHOLUNSSFUNKT ION” :PRINT 
PRINT"8 - HAUPTMENUE" :PRINT 

GOSUB 9858 

IF F=133 THEN 7188 

IF F=137 THEN 7288 

IF F=134 THEN 7388 

IF F=148 THEN 188 


IF F=138 THEN 7488 

GOTO 7888 

PRINT"FREIER SPEICHERPLATZ"” 
PRINT nn age 2 
*=FRE (8) 

IF x<=8 THEN X=32767+(%+32768) 


PRINT"NOCH PLATZ FUER ";%;" ZEICHEN FREI" 
GOSUB 9818 
SOTO 7888 
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72808 
7282 
72085 
7286 
73988 
7382 
7383 
7385 
7318 
7315 
7328 
7325 
7338 
7335 
7348 
7399 
7488 
7492 
7485 
7418 
7415 
7428 
7425 
7438 
8888 
8818 
8828 
9888 
9895 
9818 
9815 
9828 
9858 
9855 
9868 
9865 
9978 
9188 
9118 
9115 
9128 
9125 
9138 
9135 
9158 
9155 
9157 
9168 
9165 
9178 


PRINT"TEXTPROBE AUF DEM BILDSCHIRM" 
PRINT "een... re 
GOSUB 9888 

GOTO 7898 

PRINT"TEXTPROBE AUF DEM DRUCKER" 
PRINT unnn nun ” 
GSOSUB 9158 

GOSUB 9188 

OPEN 1,4,7 

CMDi 

FOR I=ZrA TO ZE 

PRINT#1,1;". ";T$<CD) 

NEXT I 

PRINT#1 

CSLOSE 1 

SOTO 78988 

PRINT" TASTEN-WIEDERHOLUNSSFUNKT ION” 
LEERE ” 
PRINT 

INPUT"WIEDERHOLUNSSFUNKTION <(J/NI";X$ 
IF NOTCX$="J" OR X$="N") THEN PRINT"EINGSABEFEHLER"” :SOTO 7418 
IF 8$="J" THEN POKE 658,128 

IF %$="N" THEN POKE 658,8 

GOoTO 7888 


POKE 53272 ,21 

PRINT"PROGRAMM BEENDET" 

END 

REM #Ui1% 

PRINT"NOCH NICHT VERFUEGBAR" 
INPUT"WEITER (J/NI";A$ 

IF A$<?>"J" THEN 9818 

RETURN 

REM #U2%* 

PRINT :PRINT :PRINT"WFUNKTIONSTASTE DRUECKENE' 
GET F$:IF F$="" THEN 9868 
F=ASC <F$) :PRINT"’R” 

RETURN 

REM KU3% 

PRINT: INPUT"VON ZEILE, BIS ZEILE";ZA,ZE 


IF ZA<=8 THEN PRINT"EINSABEFEHLER"” :GOTO 9118 
IF ZE<{=8 THEN PRINT"EINSABEFEHLER" :GOTO 9118 
IF ZE>NZ THEN PRINT"ES SIND NUR ";NZ;" ZEILEN SESPEICHERT":6OTO 9118 
IF ZA>ZE THEN PRINT"EINSABEFEHLER":SOTO 9118 
RETURN 

REM #U4% 

IF NZ>8 THEN 9178 

PRINT"KEIN TEXT VORHANDEN” 

FOR I=1 TO 1888:NEXT I 

GOTO 188 

RETURN 
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9288 REM KU5% 

9285 X%=LEN<(W$) 

9218 IF DA > LEN(CK$)-KX+1 THEN 9238 

9215 FOR D=DA TO LENCKS$I-K+1 

9228 IF MID$(CX$,D,X)=H$ THEN ID=D:RETURN 
9225 NEXT D 

9238 ID=8:RETURN 

9258 REM KU6%k 

9255 IF ID=8 THEN PRINT X$:RETURN 

9268 XD=LEN(CK$)-CID+LENCH$)-1) 

9265 IF X&D=8 THEN PRINT LEFT$SCK$,ID-1) ; "WW" ;n$S;, "ww" 


9278 IF X%D>8 THEN PRINT LEFTS$SCK$, ID-1) ; "WW" ;W$; "WE" ;RIGHTSCK$,XD) 
9275 RETURN 
READY. 


Abb. 14 Listing des kompletten bisher 
erarbeiteten Textverarbeitungsprogramms 


8 Was ist noch zu tun? 


Wenn Sie sich die Abbildung 14 ansehen, werden Sie feststellen, daß unser 
Programm schon eine ganz beachtliche Größe erreicht hat. Durch die kon- 
sequente Gliederung des Programms und die Verwendung der Unterprogramm- 
technik bleibt das Programm trotzdem übersichtlich. Die einzelnen Programnm- 
abschnitte lassen sich leicht nachvollziehen und bei Bedarf auch erweitern. 
Wir wollen in dem Kapitel 8 'Zwischenstation' machen und feststellen, was 
bereits programmiert wurde und was noch programmiert oder geändert werden 
muß. Erfahrene EDV-Profis vertreten oft die Meinung, daß jedes Programm 
zweimal geschrieben werden muß. Das erste Schreiben eines Programms habe 
lediglich den Zweck festzustellen, was man eigentlich will. Somit wird 
die erste Version von Anfang an für den "Papierkorb! geschrieben. In einem 
zweiten Anlauf könne man dann sämtliche Verbesserungen und Korrekturen 
anbringen. 

Diese Strategie ist aber nicht unbedingt nachahmenswert. Es ist besser, 
vor Beginn der eigentlichen Programmierung eine gründliche Systemanalyse 
durchzuführen und während der Realisierung des Projektes noch einmal die 
bereits fertiggestellten Punkte zu überprüfen. Wenn man geschickt vorge- 
gangen ist, läßt sich mit dem bereits realisierten Programmteil ein großer 
Teil der anfallenden Aufgaben lösen. Während des Programmtests sammelt man 
Erfahrungen, die man für die weitere Programmierung des Projektes verwenden 
kann. 

Wir wollen nun so vorgehen, wie im letzten Absatz beschrieben. Dazu 
sehen wir uns das Programm der Abbildung 14 genau an. Es bietet sich an, 
die einzelnen Menüs nacheinander durchzugehen und eine Stoffsammlung 
anzufertigen. Auf diese Art und Weise werden die Dinge festgestellt, die 
dem Programmsystem noch fehlen oder die verbessert werden sollen. Das 
Erstellen dieser Stoffsammlung wird auch als 'Brain Storming' bezeichnet, 
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Auf gehts! Fangen wir gleich mit dem Hauptmenü an. Bisher hatten wir 
keinen Grund, das Hauptmenü zu ändern. Alle wesentlichen Hauptfunktionen 
eines Textverarbeitungsprogramms sind im Hauptmenü aufgeführt. Funktionen, 
die sich nicht klar zuordnen lassen, haben wir vorsorglich den Sonder- 
funktionen zugeordnet. Eine Erweiterung des Hauptmenüs dürfte ein wenig 
schwierig sein, da wir bereits sämtliche Funktionstasten belegt haben. Es 
gibt aber Programmiertricks, um die Anzahl der Funktionstasten zu er- 
weitern. Das sollten wir - trotzdem diese Möglichkeit in gewisser Weise 
sehr interessant sein mag - aus zwei schwerwiegenden Gründen nicht tun: 
Einerseits leidet der Bedienungskomfort sehr stark darunter, wenn Tasten 
mehrfach belegt sind. Andererseits geht die Übersichtlichkeit verloren, 
wenn wir eine zu große Anzahl von Menüs auf einer Bildschirmseite anbieten. 
Es ist besser, die hierarchische Struktur der Menüs um eine hierarchische 
Ebene zu erweitern, damit zusätzliche Menüs erstellt werden können. 
Zusammenfassend kann gesagt werden, daß die Programmierung des Hauptmenüs 
abgeschlossen ist. 


8.1 Das Menü 'TEXTEINGABE' 


Das Menü "TEXT EINGEBEN" haben wir relativ schnell und 'lieblos' pro- 
grammiert. Der Grund hierfür war, daß wir zunächst nur eine Möglichkeit 
schaffen wollten, irgendeinen Text einzugeben. Wir erinnern uns daran, 
daß ein Fehler auftrat, wenn der Text ein Komma oder einen Doppelpunkt 
enthielt. Die Eingabe von Anführungszeichen war ebenfalls nicht möglich. 
Diese Probleme sollten in einem zweiten Anlauf behoben werden. Damit aber 
nicht genug! Es gibt noch weitere Möglichkeiten, das Menü "TEXT EINGEBEN' 
zu verbessern. 

Sie erinnern sich, daß der Arbeitsspeicher Ihres COMMODORE 64 nicht 
unendlich groß ist. Folglich wird bei Überschreiten der Speicherkapazität 
durch Eingabe eines langen Textes eine Fehlermeldung ausgegeben. Das 
Programm wird automatisch unterbrochen. Der eingegebene Text ist in diesem 
Fall verloren. Aus diesem Grund hatten wir das Sondermenü '"FREIER 
SPEICHERPLATZ' eingeführt. Es ist allerdings etwas umständlich, wenn der 
Benutzer nach Eingabe einer bestimmten Anzahl von Zeilen dieses Sonder- 
menü anwählen muß, um sich über den noch zur Verfügung stehenden Speicher- 
platz zu informieren. Wir können dem Benutzer diese Arbeit abnehmen, 
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indem wir nach der Eingabe einer bestimmten Anzahl von Zeilen eine Meldung 
über den noch freien Speicherplatz automatisch ausgeben. Eine Alternative 
wäre, den Benutzer zu informieren, sobald die Speicherkapazität einen 
kritischen Wert unterschritten hat. 


8.2 Das Menü "TEXTAUSGABE ' 


Das Menü "TEXT AUSGEBEN' haben wir bisher nur sehr wenig behandelt. Wir 
werden später sehen, daß es hier noch einiges zu tun gibt. Momentan sollten 
wir uns mit den vorhandenen Programmen dieses Menüs zufriedengeben. Warten 
Sie es ab, welche Anforderungen noch kommen werden. Wir wollen in dem 
Kapitel 8 nur ein Brain Storming vornehmen. Die schematische und sys- 
tematische Zusammenstellung der noch zu erledigenden Arbeiten wird im 
nächsten Kapitel behandelt. Dazu müssen wir nämlich in Gedanken noch 
einmal das komplette Programm durchgehen, um eventuelle Lücken aufzuspüren. 


8.3 Das Menü "TEXT SPEICHERN' 


Das Menü "TEXT SPEICHERN" haben wir noch nicht programmiert, da die 
Programmierung nicht ganz einfach ist und wir uns erst mit der Pro- 
grammiersprache BASIC vertraut machen mußten. Die Programmierung dieses 
Menüs soll bald nachgeholt werden. Es wird Ihnen dann möglich sein, Texte 
abzuspeichern, um sie so für eine spätere Verwendung aufzuheben. Als 
Speichermedium werden wir die Datassette und die Diskette verwenden. 


8.4 Das Menü "TEXT ABRUFEN"! 


Es muß selbstverständlich möglich sein, einen auf einem externen Speicher 
gespeicherten Text wieder in den Arbeitsspeicher zurückzuholen. Man be- 
zeichnet diesen Vorgang auch als 'Laden'. Wir haben dafür ein gesondertes 
Menü mit dem Namen 'TEXT ABRUFEN! vorgesehen. Wie schon bei dem Menü "TEXT 
SPEICHERN’, werden wir auch dieses Menü für die Datassette und die Dis- 
kette als Externspeicher programmieren. 
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8.5 Das Menü "TEXTBEARBEITUNG! 


Von dem Menü "TEXT BEARBEITEN!" haben wir schon einige Punkte realisiert. 
Sehen Sie sich dazu das Kapitel 7 an. Bevor wir hier ins Detail gehen, 
sollten wir uns noch einmal die Untermenüs zu dem Menü "TEXT BEARBEITEN! 
ansehen. Wir haben die Möglichkeit, Wörter zu suchen, zu löschen oder zu 
korrigieren. Weiterhin haben wir die Möglichkeiten vorgesehen, Textzeilen 
zu löschen, Textzeilen einzufügen und Textzeilen zu verschieben. Zusätz- 
lich zu diesen Zeilenkommandos ist es in einigen Fällen wünschenswert, 
einen Textblock duplizieren zu können. Das bedeutet, daß man eine Text- 
zeile oder einen Block von Textzeilen an eine andere Stelle des Textes 
kopieren kann. Wir sollten bei der Überarbeitung des Textverarbeitungs- 
programms in dem folgenden Kapitel diese Zusatzfunktion einfügen und 
verfügbar machen. Wir haben Glück gehabt: Eine Funktionstaste ist noch 
unbelegt. Bei dieser Gelegenheit sollten wir es nicht versäumen, die Ab- 
frage der Funktionstasten zu vereinfachen. Schauen Sie sich an, wie dieses 
für das Hauptmenü realisiert wurde. Die Ineinanderschachtelung der 
verschiedenen IF-Abfragen in den Zeilen 5060-5066 würde entfallen. 

Zusammenfassend kann man für das Menü "TEXT BEARBEITEN! festhalten, 
daß das Untermenü 5, 6 und das neu einzufügende Untermenü 7 (ZEILE(N) 
KOPIEREN) programmiert werden müssen. 


8.6 Das Menü "TEXTVERARBEITUNG! 


Von diesem Menü haben wir bisher nur sehr wenig gesprochen. Wenn wir uns 
die Abbildung 14 ansehen, fällt auf, daß wir noch nicht einmal eine 
Systemanalyse, also eine Unterteilung in Untermenüs, vorgenommen haben. 
Denken Sie darüber nach, was diesem Punkt zugeordnet werden müßte. Im 
nächsten Kapitel werden wir dann die Systemanalyse durchsprechen. 


8.7 Das Menü 'SONDERFUNKTIONEN' 


Das Menü "SONDERFUNKTIONEN' enthält zur Zeit vier Untermenüs. Von diesen 
Untermenüs ist die Programmierung bis auf das Menü 'TEXTPROBE AUF DEM 
BILDSCHIRM! abgeschlossen. Wir sollten hier nicht über eine Erweiterung 
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der Sonderfunktionen diskutieren. Wünsche bezüglich einer Erweiterung 


ergeben sich automatisch während des Arbeitens mit dem Programm. Lassen 
Sie Ihrer Phantasie freien Lauf. Nur so können Sie selbst kreativ tätig 
werden und eine Erweiterung vornehmen. Vorsicht! Programmieren Sie nicht 
ohne klares Konzept. Sie würden so die übersichtliche Struktur des vor- 
liegenden Programms zerstören. Gewöhnen Sie sich den bisher gezeigten 
Programmierstil an. Fügen Sie Ihren Erweiterungsvorschlag harmonisch in 
die Umgebung ein. 


8.8 Verschiedenes 


Schenken Sie unserer Unterprogrammsammlung *U1* bis *U6* ein wenig 
Aufmerksamkeit. Diese Liste der Unterprogramme wird bis zum Ende des 
Buches noch ein wenig länger werden. 

Wenn Sie bisher genau dem Buch gefolgt sind, sollten Sie spätestens 
jetzt damit beginnen, sich eigene Gedanken zu machen. Das soll nicht 
bedeuten, daß Sie nicht genauso konzentriert wie vorher weiterlesen sol- 
len. Sie sollen dazu animiert werden, eigene Ideen in dem Programm zu 
verwirklichen. 

Haben Sie eine neue Idee für ein gutes Hauptmenü? Es ist aber keine 
Funktionstaste mehr frei! Das macht nichts; es gibt immer einen Weg. Sehen 
Sie sich die einzelnen Hauptmenüs an. Es besteht sicherlich die Möglich- 
keit, zwei Hauptmenüs zusammenzufassen. Dieses könnte beispielsweise mit 
den Menüs "TEXT SPEICHERN" und "TEXT ABRUFEN! geschehen. Es bietet sich 
doch an, diese Menüs zusammenzufassen. Sie werden dann genug Platz für Ihr 
eigenes Hauptmenü haben. Beginnen Sie mit der Programmierung; aber immer 
mit Verstand und Systematik! 


9 Wir gehen an die Realisierung der 
noch offenen Problemstellungen 


Nachdem wir im letzten Abschnitt eine Sammlung der noch zu erledigen- 
den Punkte vorgenommen haben, wollen wir nun an die Realisierung dieser 
Problemstellungen gehen. Dazu gehen wir in der im Kapitel 8 festgelegten 
Reihenfolge vor. Da wir bereits über eine Menge Programmiererfahrung 
verfügen und nicht mehr zu den 'BASIC-Anfängern' gehören, möchte ich mich 
auf eine kurze Beschreibung der jeweiligen Programme beschränken. Sie 
sollten sich wirklich die Mühe machen, die jeweiligen Programme genau zu 
durchdenken und gegebenenfalls Verbesserungsvorschläge zu entwickeln. Wenn 
Sie darin erfolgreich sind, haben Sie bereits den ersten Schritt zum er- 
folgreichen Programmierer gemacht. 


9.1 Die Texteingabe 


Wir beginnen mit der Überarbeitung des Menüs TEXTEINGABE. Dazu gehören 
die Volltexteingabe und die Speicherplatzüberwachung, die in den folgenden 
Abschnitten beschrieben werden. 
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9.1.1 Die Volltexteingabe 


1888 PRINT'"TEXT EINGEBEN” 


1825 IF NZ=481 THEN PRINT"%*%* DATEI VOLL **".FOR I=1 TO 1888:NEXKT 1:60T0 1868 
1827 T$CNZI="" 

1838a PRINT'"’W" ;NZ;,"w" 

1848 GET %$:IF X$="" THEN 1848 

1842 IF %$=CHR$<13) THEN 1858 

1844 PRINT X$;: T$<CNZI=T$CNZI +X$:GOTO 1848 

1858 IF T$CNZI<CD" HER" THEN PRINT:GSOTO 1828 

1868 NZ=NZ-1:60T0 188 


Programm P 23 


Sie erinnern sich sicherlich daran, daß der eingegebene Text keine 
Kommata, Doppelpunkte oder Anführungszeichen enthalten durfte. Diese 
Einschränkung ist aber nicht realistisch, da diese Zeichen in allen Texten 
vorkommen. Eine Möglichkeit, eine Volltexteingabe zu realisieren, liegt in 
der Verwendung des Befehls GET anstelle des INPUT-Befehls. Mit dem GET- 
Befehl kann ein Zeichen von der Tastatur übernommen werden, ohne daß der 
Benutzer dabei die RETURN-Taste drücken muß. Sehen Sie sich das Programm 
P23 anı 

In Zeile 1040 wird ein Zeichen von der Tastatur übernommen. Wenn das 
Zeichen ein RETURN ist, d. h. wenn die RETURN-Taste gedrückt worden ist, 
springt der Rechner zu der Anweisung 1050. Diese Abfrage wird in der 
Anweisungszeile 1042 vorgenommen, da CHR$(13) der RETURN-Taste entspricht. 
Wenn die RETURN-Taste gedrückt wird, ist die Eingabezeile beendet. Dann 
muß in Zeile 1050 untersucht werden, ob das Ende-Kennzeichen eingegeben 
wurde. Wenn das nicht der Fall ist, springt der Rechner zur Anweisung 
1020. Die Eingabe einer neuen Zeile kann nun beginnen. In dem anderen Fall 
ist die Eingabe einer Zeile noch nicht abgeschlossen. Das eingegebene 
Zeichen wird deshalb in Zeile 1044 zu der laufenden Textzeile 'addiert'. 
Anschließend wird die Eingabe eines neuen Zeichens durchgeführt. Der 
Rechner muß also wieder zur Anweisung 1040 zurückspringen. Sie dürfen 
nicht vergessen, das Zeichen auszudrucken, das mit GET von der Tastatur 
übernommen wurde, da Sie sonst das eingegebene Zeichen nicht auf dem 
Bildschirm sehen. Geben Sie das Programm P23 ein, und probieren Sie die 
Volltexteingabe aus. 
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9.1.2 Die Speicherplatzüberwachung 


1888 PRINT"TEXT EINGEBEN" 

00. FRINT ren nnssun ":PRINT 

1828 NZ=NZ+1 

1825 IF NZ=481 THEN PRINT"%*%* DATEI VOLL %*%*":FOR I=1 TO 1888:NEXT 1:60T0 1868 
1827 T$<NZ)="" 

1838 PRINT"W”’ ; NZ," 

1848 GET %$: IF %$="" THEN 1848 

1842 IF X%$=CHR$<(13) THEN 1858 

1844 PRINT %$;: T$CNZI=T$CNZ) +X$:G0OTO 1848 
1858 IF T$(CNZI="#E#" THEN 1968 

1851 PRINT:PRINT 

1852 IF INT<NZ/18)<>NZ/18 THEN 19268 

1854 X%=FRE (8) 

1855 IF x%<=86 THEN %=32767+(X+32768) 

1857 PRINT"WNOCH PLATZ FUERE" ;%; "BZEICHENE" 
1858 PRINT:PRINT 

1859 6OTO 1828 

1868 NZ=NZ-1:G0T0 188 


Programm P 24 


Sie wissen ja bereits, daß der Arbeitsspeicher Ihres Commodore 64 
begrenzt ist und daß er das Textverarbeitungsprogramm und den Text ent- 
hält. Damit der Rechner das Programm nicht mit dem Fehler OUT OF MEMORY 
(kein Speicherplatz mehr frei) abbricht und der eingegebene Text verloren- 
geht, sollte der Benutzer laufend über den Stand des noch freien Speicher- 
platzes informiert werden. Das können wir beispielsweise dadurch tun, 
indem wir nach der Eingabe von jeweils 10 Textzeilen den zur Verfügung 
stehenden Speicherplatz ausgeben. Wie der freie Speicherplatz bestimmt 
werden kann, können Sie in dem Sondermenü nachlesen. Wir können also die 
Berechnung übernehmen, da wir das Problem bereits an anderer Stelle gelöst 
haben. Wir müssen nur noch dafür sorgen, daß jeweils alle 10 Zeilen die 
Information an den Benutzer weitergegeben wird. Wir benutzen dazu den 
Zeilenzähler NZ. In Zeile 1052 wird geprüft, ob der Rest bei der ganz- 
zahligen Division durch 10 den Wert 0 ergibt. Wenn das der Fall ist, haben 
wir eine” 10.; ''20., 9%, 100. ... Zeile eingegeben und müssen nun die 
Information über den freien Speicherplatz berechnen. Alles andere an 
diesem Programm ist selbsterklärend. 
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9.2 Die Textausgabe 


2888 PRINT"W” :PRINT"TEXT AUSGSEBEN" 
2383 PRINT ":PRINT 

2818 PRINT"1i - BILDSCHIRM" :PRINT 

2815 PRINT"2 - DRUCKER" :PRINT 

2828 PRINT"S - HAUPTMENUE” :PRINT:PRINT 
20825 GOSUB 9859 

2627 IF F=148 THEN GOTO 188 

2836 PRINT:PRINT 

2835 INPUT "ANZAHL DER ZEILEN PRO SEITE";,Z2Z 
2848 IF F=133 THEN 2188 

2845 IF F=137 THEN 2208 

2858 PRINT"L"”:GOTO 2888 


Programm P 25 


Sehen Sie sich das Menü TEXTAUSGABE an. Wenn Sie es mit bereits 
fertigen Menüs vergleichen, werden Sie feststellen, daß der Aufbau dieses 
Menüs nicht mit den bereits fertiggestellten Menüs übereinstimmt. Im 
Hinblick auf Übersichtlichkeit und eine spätere Wartung des Programms 
sollte unbedingt eine einheitliche Programmierung' angestrebt werden. 
Deshalb gestalten wir zunächst das Menü neu. Sehen Sie sich das Programm 
P25 an. Ich glaube, daß Sie in der Lage sind, dieses Programm vollständig 
zu verstehen. In Zeile 2035 können Sie wählen, wie viele Zeilen eine Seite 
umfassen soll. Dabei ist es gleichgültig, ob es sich um eine Bildschirm- 
oder eine Druckerseite handelt. Bei der Programmierung der Menüs werden 
Sie später darauf achten, daß jede Seite getrennt ausgegeben wird. Wie die 
Ausgabe erfolgt, können Sie in den folgenden Abschnitten nachlesen. 
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9.2.1 Ausgabe auf dem Bildschirm 


2188 PRINT" 

2185 FOR I=1 TO NZ 

2118 PRINT T$<D) 

2115 IF I7Z2Z<>INT<CI/ZZ) THEN 2145 
2128 PRINT: INPUT"WEITER(J/ND”;A$ 
e125 IF A$="J" THEN 21408 

2138 IF A$="N" THEN 188 

2135 GOTO 2128 

2148 PRINT" 

2145 NEXT I 

2158 PRINT: INPUT"WEITER<J/NDI" ;A$ 
2155 IF A$CD"J" THEN 2158 

2168 SOTO 2898 


Programm P 26 


Wir haben dieses Menü bereits programmiert. Sehen Sie sich die Ver- 
besserungen an. Denken Sie daran, daß ein guter Programmierer geschickt 
von sich selbst abschreibt. Wo haben Sie beispielsweise etwas ähnliches 
wie die Programmzeile 2115 schon einmal gesehen? Richtig! Wir haben dies 
bereits im Programm P24 in der Zeile 1052 kennengelernt. Das vorliegende 
Problem ist nämlich dem Programm P24 sehr ähnlich. Wir sorgen dafür, daß 
am Ende einer Bildschirmseite die Frage gestellt wird, ob die nächste 
Seite ausgegeben werden soll. Was passiert, wenn der Benutzer einen Tipp- 
fehler macht und ein J oder ein N eingibt? Was macht der Computer dann? 
Hätten Sie daran gedacht, einen solchen Tippfehler abzufragen, oder hätten 
Sie vorausgesetzt, daß jeder Benutzer so diszipliniert ist und sich nicht 
vertippt? Wenn Sie mit der 'harten' Realität in Berührung kommen, werden 
Sie sehen, daß solche Tippfehler kein Einzelfall sondern die Regel sind! 
Sie sollten also immer sorgfältig programmieren, damit ein Programm nicht 
abstürzt, wie es im Fachjargon heißt. Was geschieht also im vorliegenden 
Fall, wenn der Benutzer einen Tippfehler macht? 

Eine weitere ungeklärte Frage, die ich Ihnen zur Beantwortung über- 
lassen möchte, ist die folgende: Der Ausdruck einer Bildschirmseite 
erfolgt in der Schleife, die durch die Anweisungen 2105 - 2145 umschlossen 
wird. Wozu dienen die Programmzeilen 2150 und 2155? Könnte man diese 
Zeilen eventuell auslassen? 

Durch die Anweisung 2160 springt der Rechner schließlich zu dem 
jeweiligen Menü zurück. Von dort aus können Sie dann in das Hauptmenü 
gelangen. 
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9.2.2 Textausgabe auf dem Drucker 


2288 OPEN 1,4:CMD1i 

2285 FOR I=1 TO NZ 

2218 PRINT#1,T$<CD) 

2215 IF 17Z2<>INT<CI/NZ) THEN 2225 

2228 FOR *%*x=1 TO 4:PRINT#1," ":NEXT XkX 
2225 NEXT I 

2238 PRINT#1," " 

2235 PRINT#1 

2248 CLOSE 1 

2245 GOTO 2888 


Programm P 27 


Die Textausgabe auf einem Drucker haben wir bereits an anderer Stelle 
besprochen. Dort wurde der Begriff des Files und die Wirkungsweise des 
Befehls CMD behandelt. Ich möchte deshalb hier nicht näher darauf ein- 
gehen. Wenn Sie das Programm P27 mit dem Programm P26 vergleichen, werden 
Sie eine große Ähnlichkeit feststellen können. Der einzige Unterschied 
ist, daß auf einem File ausgegeben wird und die Abfrage nach der Ausgabe 
der nächsten Seite eingespart werden kann. Am Ende einer Seite werden 
lediglich vier Leerzeilen durch die Anweisung 2220 ausgegeben. 

Sind Sie mit dem Menü TEXTAUSGABE wirklich wunschlos glücklich? Denken 
Sie ernsthaft darüber nach, bevor Sie den nächsten Abschnitt lesen. 
Spontan müßten Ihnen zwei gravierende Mängel auffallen. 

Es gibt sicherlich Anwendungsfälle, bei denen nicht der komplette Text 
ausgegeben werden soll. Es wäre also sinnvoll, wenn der Benutzer eine 
Anfangs- und eine Endzeile angeben kann und der Text dann beginnend mit 
der Anfangszeile bis zu der Endzeile ausgegeben wird. Was passiert, wenn 
ein Benutzer das Menü 'Textausgabe' anwählt, bevor er überhaupt einen Text 
eingegeben hat? 

Man könnte doch leicht abfragen, ob der Wert des Zeilenzählers NZ 
gleich 0 ist und dann die Meldung KEIN TEXT VORHANDEN ausgeben. Versuchen 
Sie, diesen Vorschlag zu programmieren. 
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9.3 Abspeichern des Textes auf einen Externspeicher 


3888 PRINT'"R"” :PRINT"TEXT SPEICHERN” 
3893 PRINT nn "SPRINT 
3818 PRINT"1i - DATASSETTE" :PRINT 
3815 PRINT"Z2 - DISKETTE" :PRINT 

3828 PRINT"8 - HAUPTMENUE" :PRINT:PRINT 
3825 GOSUB 9858 

3838 IF F=148 THEN GOTO 188 

3835 INPUT "DATE INAME";D$ 

3848 IF F=133 THEN 3188 

3845 IF F=137 THEN 3288 

3858 PRINT'"R"”:GOTO 3888 


Programm P 28 


Wir haben bisher noch nicht darüber gesprochen, wie man den Text auf 
einem Externspeicher speichern kann. Dies ist aber ein wesentlicher Punkt 
eines Textverarbeitungsprogramms, da ein Textverarbeitungsprogramm auch 
zur Archivierung und Dokumentation dienen soll. Dazu ist es notwendig, 
einen Text auf einem Speicher abzuspeichern. Wie in den einführenden 
Kapiteln dargestellt, gibt es für den Commodore 64 einen Kassetten- 
speicher, die Datassette, und einen Diskettenspeicher, das Disketten- 
laufwerk VC-1541. Wir sollten deshalb zunächst das Menü TEXT SPEICHERN 
aufbauen, indem wir dem Benutzer die Wahl zwischen diesen beiden Extern- 
speichern lassen. Wo können Sie erfahren, wie dieses Menü programmiert 
werden muß? 

Richtig! Wir haben ein solches Menü bereits programmiert. Blättern Sie 
zu dem Programm P25 zurück. Schreiben Sie das Programm einfach ab. Sie 
müssen nur darauf achten, daß Sie anstelle des Wortes BILDSCHIRM das Wort 
DATASSETTE und anstelle des Wortes DRUCKER das Wort DISKETTE schreiben. 
Weiterhin müssen Sie darauf achten, daß Sie jeder Anweisung die korrekte 


Zeilennummer geben. Damit ist das Programm schon fertig. P28 zeigt Ihnen 
diese Version. 
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9.3.1 Speichern auf Datassette 


3186 OPEN 1,1,1,D$ 
3185 FOR I=1 TO NZ 
3118 PRINT#1,T$<D) 
3115 NEXT I 

3128 PRINT#1,"#E#" 
3125 CLOSE1A 

3138 GOTO 3898 


Programm P 29 a 


Der Text wird auf der Datassette als sequentieller File gespeichert. 
Das bedeutet, daß die einzelnen Textzeilen nacheinander auf die Magnet- 
kassette geschrieben werden. Wir müssen zunächst eine Datei eröffnen. Das 
geschieht in Zeile 3100 mit dem OPEN-Befehl. Nach dem OPEN-Befehl geben 
wir den Dateinamen an, den wir im Menü (P28) in die Variable D$ ge- 
speichert haben. In den Zeilen 3105-3150 schreiben wir schließlich die 
einzelnen Zeilen des Textes auf die Datassette. Diese Befehlsgruppe ist 
der Druckausgabe sehr ähnlich. In Zeile 3120 wird das Endekennzeichen 
ebenfalls auf die Magnetkassette geschrieben, damit wir später beim 
Einlesen das Textende erkennen können. Probieren Sie dieses Programm aus. 
Testen Sie es intensiv, bevor Sie weiterlesen. 

Nun, was haben Sie gefunden? Ich hoffe, daß Sie versucht haben, einen 
Text einzugeben, der ein Komma enthält. Was ist passiert? 

Sie werden bemerkt haben, daß der Text, der nach dem Komma folgen 
sollte, verschwunden ist, sobald Sie versucht haben, den Text von der 
Kassette abzurufen. In Abschnitt 9.4.1 wird beschrieben, wie wir den Text 
von der Datassette in den Hauptspeicher laden können. Wie kann man diesen 
Fehler beheben? 


3188 OPEN 1,1,1,D$ 

3185 FOR I=1 TO NZ 

3118 PRINT#1,CHR$C34) ,;,T$CI) ;CHR$C34) 
3115 NEXT I 

3128 PRINT#1,"#E#" 

3125 CLOSE1 

3138 SOTO 3888 


Programm P 29 b 
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Der Fenler kann behoben werden, indem Sie den Text einfach in 
Anführungszeichen setzen. In Programm P29 b erkennen Sie in der Anweisung 
3110, daß der Text in Anführungszeichen eingeschlossen wird. Das geschieht 
durch den Befehl CHR$(34). Gemäß der Codetabelle ist 34 der Code für das 
Anführungszeichen. Versuchen Sie, den Text nach Abschnitt 9.4.1 zu laden. 
Der Text erscheint nun wie eingegeben. 

Zum Testen des Programms nach dem obigen Beispiel können Sie geschickt 
die einzelnen Menüs verwenden. Wählen Sie zunächst das Menü TEXTEINGABE 
an, dann das Menü TEXT SPEICHERN. Rufen Sie anschließend das Menü L'OESCHEN 
auf, um sicherzustellen, daß der Textspeicher keinen Text mehr enthält. 
Laden Sie anschließend nach Abschnitt 9.4.1 den Text wieder von der 
Datassette und schauen Sie sich schließlich mit dem Menü TEXTAUSGABE den 
Inhalt des Textpuffers an. 


9.3.2 Speichern auf Diskette 


3288 OPEN 2,8,2,D$+",5S,W" 

3285 OPEN 1,8,15 

3218 FOR I=1 TO NZ 

3215 PRINT#2,CHR$(34) ; T$<I) ;CHR$<34) 
3228 NEXT I 

3225 PRINT#2,"#E#" 

3238 CLOSE1 

3235 CLOSE2 

3248 SOTO 3888 


Programm P 30 


Die Diskette hat gegenüber der Datassette den großen Vorteil, daß Sie 
einen erheblich schnelleren Zugriff auf die Daten haben. Die Progran- 
mierung ist der Programmierung des Abspeicherns auf die Datassette sehr 
ähnlich. Vergleichen Sie die Programme P30 und P29 b. Einen Unterschied 
werden Sie letztlich nur in dem OPEN-Befehl finden. Hier müssen Sie an- 
geben, um welche Datei es sich handeln soll. Das S hinter der Variablen 
D$ bedeutet, daß es sich um eine sequentielle Datei handelt, die ge- 
schrieben werden soll. W ist die Abkürzung für WRITE (= schreiben). 
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9.4 Abrufen des Textes von einem Externspeicher 


Das Speichern eines Textes auf einen Externspeicher ist nur dann 
sinnvoll, wenn man diesen Text auch wieder abrufen kann. In diesem 
Abschnitt wird deshalb die Programmierung dieses Problems behandelt. Es 
muß zuerst das Menü programmiert werden, das Sie in P31 sehen können. Ich 
glaube, ich muß zu diesem Menü nichts mehr sagen, da sich die Programme 
P31 , P25 und P28 sehr ähnlich sind. Ich hoffe, Sie sehen jetzt, daß lange 
Programme sehr übersichtlich sein können, wenn man konsequent program- 
miert. 


4886 PRINT'"W” :PRINT"TEAT ABRUFEN” 
4885 PRINT nn ":PRINT 
4818 PRINT"i - DATASSETTE”:PRINT 
4815 PRINT"2 - DISKETTE":PRINT 
4828 PRINT"S - HAUPTMENUE" :PRINT:PRINT 
4825 GOSUB 9858 

48386 IF F=148 THEN GOTO 188 

4835 INPUT"DATEINAME";,D$ 

4848 IF F=133 THEN 4188 

4845 IF F=137 THEN 42088 

4858 PRINT'WR”:GOTO 4988 


Programm P 31 


9.4.1 Laden von der Datassette 


41686 OPEN 1,1,1,D$ 

4185 I=1 

4118 INPUT#1,T$<CD 

4115 IF T$CDEI"HER" THEN I=1+1:650T0 4116 
4128 NZ=I-1 

4125 CLOSE1 

4136 GOTO 40888 


Programm P 32 


Das Programm LADEN VON DER DATASSETTE läßt sich sehr leicht schreiben, 
wenn wir uns ansehen, wie wir das Programm TEXTEINGABE geschrieben haben. 
Blättern Sie zurück oder sehen Sie sich das Programm P23 an. Wenn Sie es 
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sich genau überlegen, muß dieses Programm der Texteingabe über die 
Tastatur sehr ähnlich sein, da es dem Rechner gleichgültig ist, ob der 
Text von einem Externspeicher oder von der Tastatur eingegeben wird. Sie 
müssen nur daran denken, die Datei in Zeile 4100 zu eröffnen und in Zeile 
4125 zu schließen. Ansonsten erfolgt die Eingabe der Textzeilen und die 
Abfrage auf das Endekennzeichen so, wie wir es vor der Programmierung der 
Volltexteingabe gemacht haben. 


9.4.2 Laden von der Diskette 


4288 OPEN 2,8,2,D$+",S,R" 

4285 OPEN 1,8,15 

4218 I=1 

4215 INPUT#2,T$<(D 

4228 IF T$SCDOI"HE#H" THEN I=1+1:507T09 4215 
4225 NZ=1I-1 

4238 CLOSE1i 

4235 CLOSE2 

4248 GOTO 4888 


Programm P 33 


Das Lesen eines Textes von der Diskette ist so zu programmieren, wie 
das Lesen eines Textes von der Datassette. Ein Unterschied besteht ledig- 
lich in der Eröffnung der Datei. In Zeile 4200 steht hinter der Variablen 
D$ das Zeichen S zur Kennzeichnung einer sequentiellen Datei und das 
Zeichen R zur Kennzeichnung, daß die Datei gelesen werden soll (READ 
steht für "lesen"). In Zeile 4205 ist eine Datei mit der Nummer 1 eröffnet 
worden. Wenn wir uns den OPEN-Befehl vornehmen, sehen wir, daß nach OPEN 
drei Zahlen folgen. Die erste Zahl gibt den Dateinamen (1) an, die zweite 
Zahl die Gerätenummer (8 = Diskette) und die dritte Zahl 15 die Sekundär- 
adresse. Auf dieser Sekundäradresse werden die Fehlermeldungen aus- 
gegeben. 

Sie könnten beispielsweise vergessen, eine Diskette einzulegen. Die 
Diskettenstation meldet sich dann durch ein Blinken der roten Lampe. Über 
die Sekundäradresse kann abgefragt werden, um welchen Fehler es sich 
handelt. Ich möchte an dieser Stelle darauf verzichten, eine komplette 
Fehlermeldung zu programmieren, da dieses den Rahmen des Buches sprengen 
würde. Einzelheiten können in dem Buch "Dateiverarbeitung mit dem 
Commodore 64" (Hanser-Verlag) nachgelesen werden. | 
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9,5 Die Textbearbeitung 


Das Menü TEXT BEARBEITEN haben wir bereits programmiert. Sehen Sie 
sich an, wie wir die Abfrage der Funktionstasten behandelt haben. Ver- 
gleichen Sie diese Abfrage mit der Abfrage der Funktionstasten im Haupt- 
menü. Im Programm P34 können Sie sehen, wie die Abfrage der Funktions- 
tasten vereinfacht wurde. Zur besseren Übersicht sollten wir sie so 
ähnlich wie im Hauptmenü behandeln. Wir können dann sehr leicht ein 
weiteres Menü mit der Nummer 7 einführen und müssen nichts wesentliches an 
der Struktur des Menüs ändern. In den nachfolgenden Abschnitten wollen wir 
die noch fehlenden Menüs programmieren. 

5888 PRINT"K":PRINT"TEXT BEARBEITEN" 
5885 PRINT"--------------- ":PRINT 

5818 PRINT"i1 - WORT SUCHEN" PRINT 

59815 PRINT"2 - WORT LOESCHEN" :PRINT 

5828 PRINT"3 - WORT KORRISIEREN". PRINT 
5825 PRINT"4 - ZEILE<N) LOESCHEN" :PRINT 
5838 PRINT"S - ZEILE<N? EINFUEGEN" :PRINT 
5835 PRINT"6 - ZEILE<N) VERSCHIEBEN” :PRINT 
5958 PRINT"8 - HAUPTMENUE" 

5855 GOSUB 9858 

5868 IF NOT<F?=133 AND F<C=148) THEN 5888 


5862 ON F-132 GOTO 5188,5308,5588,5008,5208,54080,5608,108 
5869 GOTO 5998 


Programm P 34 


9,5.1 Zeilen einfügen 


Dieser Teil der Textbearbeitung ist von großer Bedeutung. Es kommt in 
der Praxis häufig vor, daß eine Textstelle vergessen wird und nachträglich 
eingefügt werden soll. Außerdem kann auch die Aktualisierung eines Textes 
das Einfügen nachträglicher Textpassagen erfordern. 

Zunächst muß der Text eingegeben werden, der eingefügt werden soll. 
Dies geschieht in den Zeilen 5505 bis 5525. Wenn Sie sich diesen Programnm- 
teil ansehen, werden Sie erkennen, daß ich hier die einfache Texteingabe 
wie zu Beginn des Buches programmiert habe. Sie werden sicherlich nicht 
mehr mit dieser Version der Texteingabe zufrieden sein, weil Sie eine 
Volltexteingabe wünschen. Da ich mit diesem Buch nicht nur etwas über 
Textverarbeitung mit dem Commodore 64 erzählen möchte, sondern Sie auch an 
das Programmieren heranführen will, sollten Sie den Abschnitt 9.1.1 über 
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Volltexteingabe wiederholt lesen und versuchen, diese Volltexteingabe 
selbst zu programmieren. Schreiben Sie ruhig von sich selbst ab. Sie 
wissen ja bereits, wie die Volltexteingabe programmiert werden kann. Sie 
sollten sich unbedingt die Mühe machen und die Volltexteingabe hier 
einfügen, da die Eingabe der Zeichen Komma, Doppelpunkt und Anführungs- 
zeichen in der Praxis unbedingt erforderlich ist. 

Wir lesen den einzufügenden Text in die Variable TX$ ein. Dazu müssen 
wir in Anweisung 10 TX$ dimensionieren. Bei der Eingabe des einzufügenden 
Textes muß unbedingt darauf geachtet werden, daß später nach dem Einfügen 
dieses Textes die maximale Zeilenzahl von 400 Zeilen für T$ nicht über- 
schritten wird. Diese Abfrage wird in Zeile 5521 durchgeführt. Als 
nächstes muß der Benutzer dem Programm mitteilen, nach welcher Zeile der 
Text eingefügt werden soll. Die Angabe wird in Anweisung 5535 gemacht. Wie 
ich Ihnen schon sagte, muß nach Möglichkeit jeder Fehler des Benutzers 
abgefangen werden. Dazu muß festgestellt werden, ob die Angabe, nach 
welcher Zeile der Text eingefügt werden soll, wirklich sinnvoll ist. Das 
geschieht in den Zeilen 5537 und 5538. 

Bevor der einzufügende Text in den laufenden Text eingefügt werden 
kann, muß in dem laufenden Text eine 'Lücke' geschaffen werden. Zu diesem 
Zweck ist es notwendig, den Textbereich des laufenden Textes von der 
Stelle, ab der der neue Text eingefügt werden kann, bis zu dem 'neuen' 
Ende des Textes zu verschieben. Das Schaffen der Lücke wird in dem Pro- 
grammabschnitt, der durch die Zeilen 5545 bis 5564 umschlossen wird, 
erzielt. Anschließend wird der einzufügende Text in die Lücke hinein- 
kopiert (siehe Programmzeilen 5570, 5575 und 5580). Der neue Text wird 
genau um die Anzahl der Zeilen des einzufügenden Textes länger als der 
alte Text. Aus diesem Grund muß zu dem Schleifenzähler NZ der Wert NX in 
Zeile 5585 addiert werden. 


55868 PRINT"ZEILE<ND EINFUESEN" 


5582 PRINT"------------------ ":PRINT:PRINT 
5585 PRINT "TEXT EINGEBEN <ENDE DURCH #E#)" :PRINT 
5597 NX=1 


5518 PRINT"W"”;N3; ww 

5515 INPUT TA$<NY 

5528 IF TX$CNK)="#HER" THEN NX=N%-1: GOTO 5535 
5521 IF NA+NZ<488 THEN N$=NX%+1:50T90 55108 

5525 PRINT:PRINT"&DATEI VOLL%*'":PRINT 

5535 PRINT: INPUT "EINFUEGEN NACH ZEILE" ;NA 
5537 IF NA<£8 THEN 5535 

5538 IF NA>NZ THEN 5535 
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5545 I=NZ: IK=NZ+NX 
5558 IF I=NA THEN 5578 
5553 T$CIX)=T$CT) 
5556 I=1-1 

5568 IX=IX-1 

5564 GOTO 5558 

5578 FOR I=1 TO NX 
5575 T$<NA+II=TK$CD) 
5588 NEXT I 

5585 NZ=NZ+NX 

55938 GOTO 5888 


Programm P 35 
9,5.2 Zeilenverschieben 


Dieser Programmteil dient dazu, einen Textbereich innerhalb des 
vorhandenen Textes zu verschieben. Ein derartiger Service kann dann 
erforderlich sein, wenn Sie nachträglich feststellen, daß ein bestimmter 
Abschnitt eines Textes besser an einer anderen Stelle innerhalb des Textes 
stehen sollte. In diesem Fall würden Sie den zu verschiebenden Text- 
abschnitt markieren und anschließend innerhalb des Textes an die 
gewünschte Stelle verschieben. Die Programmierung dürfte Ihnen keine 
Schwierigkeiten bereiten, wenn Sie die bisherigen Programme, vor allem 
aber das in 9.5.1 besprochene Programm, richtig durchgearbeitet haben. 
Versuchen Sie, dieses Programm zu schreiben, bevor Sie sich das Programm 
P36 ansehen. 


5688 PRINT"ZEILE<N) VERSCHIEBEN’ 

5682 PRINT"----------- - >... - 

5685 PRINT :PRINT 

5618 PRINT"ZU VERSCHIEBENDER TEXTBEREICH" 
5611 GOSUB 3108 

5615 PRINT 

5616 INPUT"VERSCHIEBEN NACH ZEILE" ,NA 
5628 I=1 

5621 FOR Ii=ZA TO ZE 

5622 TX$<CIY>=T$CI1) 

5623 I=I+1 

5624 NEXT Ii 

5638 KA=ZA:KE=ZE 

5631 IF KE=NZ THEN NZ=KA-1:650T0 5648 
5632 FOR I=KE+1 TO NZ 

5633 T$CcXA)=T$FCDH) 

5634 KA=KrA+1 

5635 NEXT I 

5636 NZ=XA-i 

5648 Nx=ZE-ZAt+i 
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5641 IF NA<ZA THEN 5658 

5642 IF NA>ZE THEN NA=ZA-1+NA-ZE:GOTO 5658 

5643 PRINT"FEHLER":FOR I=1 TO 1888:NEXT 1:60T0 5888 
56586 I=NZ: IX=NZ+N& 

5652 IF I=NA THEN 5678 


5654 T$CIX)=T$CD 
5656 I=I-1 

>658 IXx=IX-1 

5668 SOTO 5652 

5678 FOR I=1 TO N« 
5672 T$<CNA+I)=TX$CD 
5674 NEXT I 

5676 NZ=NZ+NX 

5688 SOTO 5888 


Programm P 36 


Es muß zunächst der Vorspann für dieses Programm geschrieben werden. 
In diesem Vorspann wird der zu verschiebende Textbereich markiert. Das 
können wir erreichen, indem wir die Zeilennummern des Bereichs angeben. 
Wir haben bereits ein Unterprogramm dazu geschrieben. Dieses Unterprogramm 
ist das Unterprogramm *U3*, das ab Zeile 9100 beginnt. Wir benutzen in 
Zeile 5611 besagtes Unterprogramm, um den Textbereich einzugeben. In Zeile 
5616 fragt der Rechner, an welche Stelle der Textbereich verschoben werden 
soll. Nun können wir an die Programmierung des Verschiebens des Text- 
bereiches gehen. Versuchen Sie, sich zu überlegen, aus welchen ver- 
schiedenen Einzelprogrammen sich das Programm TEXTVERSCHIEBEN zusammen- 
setzen könnte. Wir haben sämtliche Einzelprogramme bereits geschrieben und 
brauchen diese nur geschickt miteinander zu verknüpfen, um die Text- 
verschiebung zu erreichen. 

Wenn Sie einen Text verschieben wollen, können Sie folgendermaßen 
vorgehen: 


1. Kopieren des zu verschiebenden Bereiches in einen Arbeitsspeicherbe- 
reich. 

2. Löschen des zu verschiebenden Bereiches. 

3. Einfügen des in den Arbeitsspeicher kopierten Bereiches an die be- 
treffende Stelle des laufenden Textes. 


Beginnen wir mit Punkt 1. Dieser Punkt umfaßt die Zeilen 5620 bis 
5624. Hier wird der zu verschiebende Textbereich von T$ nach TX$ ko- 
piert. 
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Anschließend muß der zu verschiebende Bereich in dem fortlaufenden 
Text gelöscht werden. Das geschieht in den Zeilen 5630 - 5636. Sie 
brauchen dieses Programm nicht zu programmieren! Schreiben Sie einfach ab. 
Wir haben nämlich das Menü ZEILEN LOESCHEN bereits programmiert. Es müssen 
lediglich die Programmzeilen 5428 - 5450 an das Problem angepaßt werden. 
Vergleichen Sie diesen Programmabschnitt mit dem vorliegenden Programm- 
abschnitt. 

Zuletzt muß der in TX$ zwischengespeicherte Textbereich wieder in den 
laufenden Text eingefügt werden. Dazu ist es notwendig, die Anzahl der 
Zeilen des einzufügenden Textes zu berechnen. Das geschieht in Zeile 5640. 
Da wir Zeilen in dem ursprünglichen Text gelöscht haben, ist die Angabe 
der Zeile, nach welcher der zu verschiebende Text eingefügt werden soll, 
nicht mit dem ursprünglichen in Zeile 5616 gespeicherten Wert in NA 
identisch. Wir müssen deshalb NA erneut berechnen! Das passiert in den 
Programmzeilen 5641 und 5642. Überlegen Sie sich den Sinn dieser Zeilen. 
Wir können hier auch einen Fehler abfangen, falls ein unsinniger Wert für 
NA eingegeben wurde. Der Rechner druckt in diesem Fall in Zeile 5643 das 
Wort FEHLER aus und springt zum Anfang des Untermenüs zurück. Jetzt 
bereitet es keine Schwierigkeiten mehr, das Programm zu beenden. Ver- 
gleichen Sie die Zeilen 5650 - 5676 des Programms P36 mit den Zeilen 5545 
- 5585 des Programms P35. 

Sie sehen, daß es unbedingt notwendig ist, das Buch konsequent vom 
Anfang bis zum Ende durchzuarbeiten, da sich nachfolgende Teile auto- 
matisch lösen, wenn die vorangegangenen Problemstellungen verstanden 
worden sind. Lassen Sie sich vielleicht das ganze Programm auf dem Bild- 
schirm oder auf dem Drucker ausgeben. Sie werden feststellen, daß wir 
schon eine stolze Anzahl von Zeilen erreicht haben. Trotzdem ist das 
Programm übersichtlich. Überlegen Sie sich, ob man nicht neue Unterpro- 
gramme schaffen kann, um das gesamte Programm noch übersichtlicher zu 
gestalten und zu kürzen. Sie haben in diesem Abschnitt erfahren, daß 
frühere Programmteile erneut verwendet werden. Es kann sich durchaus 
lohnen, aus einem Programmteil, der zwei- oder mehrfach vorkommt, ein 
Unterprogramm zu machen, um so das Programm zu verkürzen und über- 
sichtlicher zu gestalten. Ich möchte es Ihnen überlassen, dies zu tun und 
sich auf diese Art und Weise langsam zu einem Profi in der Programmierung 
zu entwickeln. 
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9.5.3 Zeilen kopieren 


In dem Menü TEXTBEARBEITUNG haben wir noch ein Untermenü frei. Belegen 
Sie ruhig die Funktionstaste 7 mit der Funktion ZEILEN KOPIEREN. Dieser 
Programmteil würde es Ihnen gestatten, Textbereiche innerhalb eines Textes 
zu duplizieren oder sogar zu verdreifachen. Sie brauchen dann lediglich 
einen Textbereich zu markieren und an eine andere Stelle zu kopieren. Ich 
möchte es Ihnen überlassen, dieses Menü zu schreiben. Es ist ganz ein- 
fach: 

Gehen Sie vor, wie unter Punkt 9.5.2 beschrieben. Kopieren Sie den zu 
kopierenden Text in die Variable TX$. Fügen Sie nach Abschnitt 9.5.1 
diesen Text in die entsprechende Stelle in dem laufenden Text ein. Sie 
sehen, dieses Menü ist erheblich einfacher zu schreiben als das Menü 
ZEILEN VERSCHIEBEN. Versuchen Sie es wirklich selbst. Jeder, der das Buch 
bis jetzt intensiv durchgearbeitet hat, dürfte dabei keine Schwierigkeit 
haben. 


9.6 Die Sonderfunktionen 


7888 PRINT"R" 

7881 PRINT"SONDERFUNKT TIONEN" 

7885: PRINTER SS ”":PRINT 

7818 PRINT "1 —- FREIER SPEICHERPLAT2" :PRINT 

7815 PRINT "2 - TEXTPROBE AUF DEM BILDSCHIRM" :PRINT 
7828 PRINT "3 - TEXTPROBE AUF DEM DRUCKER" :PRINT 

7821 PRINT"4 - TASTEN-WIEDERHOLUNGSFUNKT ION" : PRINT 
7823 PRINT"S - TEXTDATEI AUF DISKETTE LOESCHEN"” :PRINT 
7848 PRINT'"8 - HAUPTMENUE'" : PRINT 

7845 GOSUB 9858 

7858 ON F-132 SOTO 7198,7308,7508,70080,7208,7408,790098,108 


Programm P 37 


Wir wollen uns jetzt der Vervollständigung und der Überarbeitung des 
Menüs Sonderfunktionen zuwenden. In Abschnitt 9.3.2 haben wir kennenge- 
lernt, wie man einen Text auf die Diskette abspeichern kann. Wir wollen 
nun in die Sonderfunktionen ein Menü einfügen, das es uns gestattet, eine 
Textdatei auf der Diskette zu löschen. Außerdem soll die Abfrage der 
Funktionstasten wie im Hauptmenü vereinfacht werden. In P37 sehen Sie 
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unser neues Menü SONDERFUNKTIONEN. 


9.6.1 Textprobe auf dem Bildschirm 


7288 PRINT"TEXTPROBE AUF DEM BILDSCHIRM" 
TEBE PRINT ee ee ee e 
7283 SOSUB 9158 

72085 GOSUB 9108 

7218 PRINT: INPUT"ZEILEN PRO BILSCHIRMSEITE";NB 
7215 I1%8=8:PRINT”R” 

7217 FOR I=ZrA TO ZE 

7218 Ix=IX+1 

7228 PRINT"W”;T;, "ww" 

7222 PRINT T$<D 

7225 IF IX/NB<C>INTCIXS/NB) THEN 7235 

7228 PRINT: INPUT"WEITER (J/ND";X$ 

7238 IF 8$="J" THEN PRINT'"R"”:SOTO 7235 
7231 IF %$="N" THEN 7888 

232 SOTO 7228 

7235 NEXT I 

7248 IF IX/NB <> INTCIX/NB) THEN 7245 
‚242 IF %$<>"J" THEN 7248 

7243 GOTO 7088 

7245 INPUT"WEITER <J/ND";%$ 

7258 SOTO 7888 


Programm P 38 


Bevor man mit dem Menü TEXT AUSGEBEN den Text in der endgültigen Form 
darstellt, möchte man sich möglicherweise eine Textprobe ansehen. Diese 
Textprobe sollte neben dem Text auch die Zeilennumerierung enthalten. Das 
Programm P38 zeigt, wie man eine Textprobe auf dem Bildschirm ausgeben 
kann. Vergleichen Sie dieses Menü mit dem Menü TEXT AUSGEBEN auf dem Bild- 
schirm. Sie werden erkennen, daß eine große Ähnlichkeit vorliegt. Bei dem 
Programm P38 haben wir nur zusätzlich die Ausgabe der Zeilennumerierung 
eingefügt. Dies geschieht durch die Zeile 7220. Um die Zeilennumerierung 
besser von dem eigentlichen Text abzuheben, geben wir die Zeilennummern im 
REVERSE-Modus aus. 

Ist Ihnen eine Änderung gegenüber dem im Abschnitt 9.2.1 dargestellten 
Menü aufgefallen? Wenn das nicht der Fall ist, sollten Sie sich die 
Anweisungen, die auf die Schleifenbeendigung in Zeile 7235 folgen, an- 
sehen. Wodurch unterscheiden sie sich von dem Menü, das im Programm P26 
dargestellt ist? Überlegen Sie sich, welches der beiden Programme die 
'richtige' Lösung darstellt. In einem Grenzfall arbeiten beide Programme 
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unterschiedlich! Es ist sicherlich für den Anfänger nicht ganz einfach, zu 
erkennen, welches der Grenzfall ist. Aber Sie sind ja schon ein fortge- 
schrittener Programmierer. 


9.6.2 Textdatei löschen 


7588 PRINT"TEXTDATEI (DISKETTE) LOESCHEN" 
zB PRINT en "PRINT 
7585 INPUT "DATE INAME";D$ 

7518 PRINT :PRINT 

7515 INPUT "OK (J/ND";R$ 

7516 PRINT 

7528 IF %$="N" THEN 7538 

7521 IF %$="J" THEN 75408 

7522 GOoTO 7515 

7538 PRINT"LOESCHEN UNTERDRUECKT" 

7531 FOR I=1 TO 1888:NEXT I 

7532 SOTO 7888 

7548 PRINT"LOESCHEN WIRD DURCHSEFUEHRT" 
7541 FOR I=1 TO 888:NEXT I 

7542 OPEN 1,8,15 

7545 PRINT#1,"S:"+D$ 

7558 CLOSE 1 

7555 GOTO 7888 


Programm P 39 


Das Menü TEXTDATEI (Diskette) LOESCHEN ist einfach zu programmieren. 
Wir sollten uns aber trotzdem Mühe geben, da eine Textdatei möglicherweise 
unbeabsichtigt gelöscht wird und somit eine Menge Arbeit für die Eingabe 
der Textdatei verlorengehen kann. Aus diesem Grund wird nach der Eingabe 
des Dateinamens in Zeile 7515 abgefragt, ob die Textdatei wirklich 
gelöscht werden soll. Wenn der Benutzer ein N eingibt, wird in Zeile 7520 
dafür gesorgt, daß die Meldung LOESCHEN auf dem Bildschirm erscheint, 
diese Meldung durch die in Zeile 7531 programmierte Warteschleife eine 
gewisse Zeit stehen bleibt und anschließend zum Anfang des Menüs zurück- 
gesprungen wird. Wird weder ein J noch ein N eingegeben, liegt ein Ein- 
gabefehler vor. Der Rechner fragt dann erneut, ob das Löschen durchgeführt 
werden soll oder nicht. Die Zeile 7522 sorgt dafür, daß wieder zu der 
Anweisung 7515 zurückgesprungen wird. Wünscht der Benutzer das Löschen der 
Textdatei, wird der Programmablauf bei der Zeile 7540 fortgesetzt. Der 
Benutzer wird darüber informiert, daß die Datei gelöscht wird. Das 
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geschieht durch die Meldung LOESCHEN WIRD DURCHGEFUEHRT. In Zeile 7524 
wird der File 1 mit der Geräteadresse 8 (Diskette) und der Sekundäradresse 
15 (Fehlerkanal) eröffnet. Über die Sekundäradresse 15 wird gegebenenfalls 
eine Fehlermeldung ausgegeben. Wie die Abfrage einer Fehlermeldung 
erfolgt, soll in diesem Buch nicht weiter besprochen werden; dieses Thema 
kann in dem Werk 'Dateiverarbeitung mit dem Commodore 64' (Hanser-Verlag) 
nachgelesen werden. Der Befehl 7545 bewirkt das Löschen der Datei. Das 
Löschen erfolgt, indem auf den File 1 der Befehl S:Dateiname ausgegeben 
wird. S ist eine Abkürzung für Scratch (= löschen). Der Dateiname ist in 
D$ gespeichert. Der Befehl wird somit durch die Zeichenkette "S":+D$ dar- 
gestellt. Anschließend wird in Zeile 7550 die Datei 1 geschlossen. 


9.7 Die Textverarbeitung 


86888 PRINT'"W” :PRINT"TEXT VERARBEITEN” 
BauBE PRINT een ":PRINT 
6886 GOSUB 9158 

6818 PRINT"1 - ZEILENUMBRUCH" :PRINT 
6812 PRINT"2 - BLOCKSATZ":PRINT 

6814 PRINT"”"8 - HAUPTMENUE" :PRINT:PRINT 
6828 GSOSUB 9858 

6827 IF F=148 THEN GOTO 188 

6838 PRINT :PRINT 

6835 IF F=133 THEN 6188 

6848 IF F=137 THEN 62088 

6845 GOTO 6888 


Programm P 40 


Wir haben bereits in einem der vorangegangenen Kapitel über den Unter- 
schied Textbearbeitung und Textverarbeitung gesprochen. Die Textver- 
arbeitung stellt dabei die anspruchsvollere Form dar. Ich möchte mich in 
diesem Buch darauf beschränken, Ihnen die Programme für zwei Möglichkeiten 
der Textverarbeitung zu zeigen. In Programm P40 sehen Sie das Menü TEXT 
VERARBEITEN, das Sie später beliebig erweitern können. Es umfaßt den 
Zeilenumbruch und den Blocksatz. Die beiden Programme werden in den nach- 
stehenden Abschnitten besprochen. 
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9.7.1 Der Zeilenumbruch 


6188 INPUT "ANZAHL DER ZEICHEN FRO ZEILE";LZ 
6182 PRINT:PRINT 

6185 PRINT "BITTE WARTEN" :PRINT 

6118 N2=1 

686115 TR$CNZ2I="" 

6117 L2=8 

8118 FOR I=1 TO NZ 

8128 KA=1:KE=LEN(T$CID) 

6125 FOR K=1 TO KE 

6138 IF K=LEN<T$CI)) THEN K=K+1:60T0 6148 
6135 IF MID$SCT$CID,K,1)CD" " THEN 6158 

8149 IF L2+K-KA>LZ THEN N2=N2+1: TX$CN2)="":[L2=8 
6143 L2=L2+K-KA 

6145 TRECN2I=STS$CNZ2I +" "+MIDSCT$SCI) ,„KA,K-KA) 
6146 KrA=K+i 

8158 NEXT K 

6153 NEXT I 

6168 FOR I=1 TO N2 

6162 T$CTDD=TA$CDH 

68164 NEXT I 

6166 NZ=N2 

8178 SOTO 6888 


Programm P 41 


Bei der Eingabe des Textes kann man zeilenorientiert vorgehen oder 
eine Fließtexteingabe vornehmen. Bei der Fließtexteingabe braucht man 
nicht darauf zu achten, wie viele Zeichen eine Zeile umfassen soll. Der 
Text wird abschnittsweise eingegeben. Anschließend sorgt ein Programm 
dafür, daß der Text zeilenweise so umformatiert wird, daß eine bestimmte 
Zeichenzahl pro Zeile nicht überschritten wird. Das bedeutet, daß ein 
Zeilenumbruch durchgeführt wird. Das Programm P41 zeigt eine Möglichkeit, 
einen solchen Zeilenumbruch zu programmieren. Der Rechner fragt in Zeile 
6100 nach der Anzahl der Zeichen, die eine Seite umfassen soll. Dann wird 
der Zeilenumbruch durchgeführt. Da dieses Programm je nach Umfang des 
eingegebenen Textes einige Zeit in Anspruch nehmen kann, wird die Meldung 
BITTE WARTEN ausgegeben. Der Zeilenumbruch wird in Programm P41 für den 
gesamten Text durchgeführt. Eventuell ist es aber sinnvoll, den Zeilenum- 
bruch abschnittsweise durchzuführen. Überlegen Sie sich, wie Sie das 
Programm abändern müssen. Es ist nicht schwierig! 


Wir gehen an die Realisierung der noch offenen Problemstellungen 117 


Um das vorliegende Programm ganz zu verstehen, muß man sich durch die 
einzelnen Anweisungen quasi 'durchbeißen'. Ich möchte Ihnen hier nur ein 
paar Hilfestellungen geben. Durch die Schleife 6118 - 6153 wird dafür 
gesorgt, daß sämtliche eingegebenen Textzeilen umbrochen werden. Der 
umbrochene Text wird von T$ nach TX$ während des Umbruchs umgespeichert. 
Hier gibt es eine kleine Schwierigkeit. Wenn die Zeilenzahl in dem um- 
brochenen Text durch den Umbruch größer wird als die ursprüngliche Zeilen- 
zahl, kann es vorkommen, daß die maximale Zeilenzahl von 400 überschritten 
wird. Es muß deshalb dafür gesorgt werden, daß während des Umbruchs die 
Zeilenzahl für TX$ 400 nicht überschreitet. 

Wie Sie wissen, ist TX$ in Zeile 10 mit 400 dimensioniert. Auf welche 
Variable müssen Sie die Abfrage beziehen, damit der Wert von 400 nicht 
überschritten wird? Sehen Sie sich das Programm noch einmal intensiv an. 
Richtig! Es ist die Variable N2. Jetzt müssen Sie nur noch überlegen, in 
welcher Zeile Sie die Abfrage durchführen müssen. Dieses möchte ich aber 
Ihnen überlassen! 

Nach Ausführung der Zeile 6153 steht in TX$ der umbrochene Text. Jetzt 
muß dieser Text nur noch in T$ umgespeichert werden. Das geschieht in der 
durch die Anweisungen 6160 und 6164 umschlossenen Schleife. Zuletzt muß 
die Zeilenzahl NZ in Zeile 6166 auf den richtigen Wert gesetzt werden. 


9.7.2 Der Blocksatz 


8288 INPUT"ZEILENLAENSE ",Z2:PRINT:PRINT 
6281 FOR 5S=1 TO NZ 

8282 X$=T$(5S) 

62863 FOR AL=1 TO LENIKS) 

8265 IF MID$SCK$,AL,1)=" " THEN 6228 
6218 NEXT XL 

6215 SOTO 6270 

8228 P=ZZ-LEN(K$) 

8225 IF P=8 THEN SOTO 6278 

8227 FOR Si=1 TO LENCK$) 

8238 IF MID$<K$,S1,1)<C’" " THEN 6235 
6232 NEXT S1 

6234 GOTO 62708 

6236 PRA=S1 

6233 PE=LEN(K$) 

8248 FOR S2=PrA TO PE 

6243 IF MID$CK$,S2,1 CD" " THEN 6268 


118 Der Blocksatz 


6247 R$=LEFTSCA$,S22 +" "+RIGHT$CHS ,LEN(HA$) -52) 
8258 5S2=52+2 

6253 P=P-1i 

6256 IF P=8 THEN SOTY 6278 

6268 NERT 52 

6265 SOTO 6236 

8278 TICHI=R$ 

6275 NEAT S 

82838 SOTO 6888 


Programm P 42 


Der Satz eines Textes kann unterschiedlich durchgeführt werden. Man 
unterscheidet zwei große Gruppen: Blocksatz und Flattersatz. Einen 
Flattersatz erhalten Sie normalerweise dann, wenn Sie einen Text mit der 
Schreibmaschine schreiben. Bei dem Flattersatz haben die einzelnen Zeilen 
eine unterschiedliche Länge. Sie erhalten selbst dann einen Flattersatz, 
wenn Sie den Text nach Abschnitt 9.7.1 formatieren, da der Zeilenumbruch 
keine automatische Worttrennung vornimmt und nur prüft, ob bei Einfügen 
eines laufenden Wortes in die jeweilige Zeile die Zeilenlänge ungerade 
überschritten wird. Ist das der Fall, wird dieses Wort in P41 in die 
nächste Zeile geschoben. Bei dem Blocksatz werden die Zeilen dagegen so 
angeordnet, daß sich ein rechter Randausgleich ergibt. Bei den Hobby- 
computern kann man einen Blocksatz erreichen, indem man einen möglichst 
optimalen Zeilenumbruch vornimmt. Das bedeutet natürlich, daß die Wörter 
unter Umständen getrennt werden müssen. Sie können versuchen, das Programm 
PA1 so umzuschreiben, daß eine Trennung möglich ist oder das Programm 
automatisch eine Silbentrennung durchführt. Diese Programme sind relativ 
kompliziert, stellen aber eine reizvolle Aufgabe für einen fortgeschrit- 
tenen Programmierer dar. 

Wenn der Zeilenumbruch sorgfältig durchgeführt wird, sind die Zeilen 
annähernd gleichlang. Wir erreichen eine einheitliche Zeilenlänge, indem 
wir Leerzeichen in den laufenden Text einfügen. Das Programm P42 erfüllt 
diese Aufgabe. Da dieses Programm das letzte Programm in diesem Buch ist, 
möchte ich Ihnen das genaue Durcharbeiten überlassen. Ein derartiges Pro- 
gramm kann problematisch sein, da es viele Grenzfälle gibt, die berück- 
sichtigt werden müssen. Stellen Sie sich beispielsweise vor, daß eine 
Textzeile keine Leerzeichen enthält. In diesem Fall kann ein Randaus- 
gleich nicht durchgeführt werden! 
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Ein kleiner Nachteil des Programms P42 ist, daß die Leerzeichen immer 
von vorn beginnend in die Zeile eingefügt werden. Es ergibt sich ein 
besseres Schriftbild, wenn bei aufeinanderfolgenden Zeilen die Leerzeichen 
abwechselnd von vorn und hinten eingefügt werden, um einen Blocksatz zu 
erhalten. Versuchen Sie, das Programm so umzuschreiben. 


9.7.3 Die Bausteinverarbeitung 


Zu der Textverarbeitung gehört natürlich einiges mehr als nur die 
Durchführung eines Zeilenumbruches bzw. eines Blocksatzes. Ein sehr 
wichtiger Punkt ist die Bausteinverarbeitung. Bei der Bausteinverarbeitung 
werden vorgefertigte Textbausteine zu einem Gesamttext zusammengemischt. 
So können Sie sich beispielsweise vorstellen, daß es bei einem Mahn- 
schreiben zwei oder drei verschiedene Textversionen gibt, je nachdem, ob 
es sich um die erste, zweite oder dritte Mahnung handelt. Einzelne 
Floskeln wie z. B. die Aufforderung zur Überweisung des Betrages auf ein 
bestimmtes Konto werden in allen drei Mahnbriefen ähnlich lauten. Es wäre 
deshalb sinnvoll, diese Floskeln als Baustein zu verfassen und dann einem 
laufenden Text hinzuzufügen. Sie können dieses Programm verwirklichen, 
indem Sie einen Text, der auf einem Externspeicher gespeichert ist, an 
einer beliebigen Stelle in dem laufenden Text einfügen. Das mag sich 
vielleicht schwieriger anhören als es in Wirklichkeit ist. Sie haben 
nämlich sämtliche Programmteile, die Sie benötigen, schon geschrieben» In 
Abschnitt 9.5.1 wurde erklärt, wie Sie einen Text in den laufenden Text 
einfügen können. In Abschnitt 9.4.2 haben Sie gesehen, wie man einen Text 
von der Diskette laden kann. Sie brauchen nur einen Text von der Diskette 
nach Abschnitt 9.4.2 zu laden, diesen Text in die Variable TX$ zu 
speichern und anschließend nach Punkt 9.5.1 in den laufenden Text einzu- 
fügen. Versuchen Sie, diese beiden Programmteile in einem neuen Menü zur 
Textverarbeitung, der BAUSTEINVERARBEITUNG, zusammenzufassen, 

Die Bausteinverarbeitung ist dort ein sehr wichtiges Hilfsmittel, wo 
laufend wiederkehrende Standardtexte miteinander verknüpft werden könnten. 
Das kommt häufig in Rechtsanwaltpraxen oder bei Ausschreibungen in der 
Bauindustrie vor. Hier wird die elektronische Textverarbeitung zu einem 
wirklichen Vorteil gegenüber der quten alten Schreibmaschine. 
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9.7.4 Die Textsubstitution 


Im vorangegangenen Abschnitt haben wir die Bausteinverarbeitung anhand 
einer Mahnbriefserie erläutert. Wir können aber auch noch einen anderen 
Punkt anschneiden: die Textsubstitution. Sie haben sicherlich in einer 
Kundenkartei mehrere Kunden, denen Sie leider eine Mahnung schicken 
müssen. Es wäre deshalb sinnvoll, sämtliche Mahnbriefe mit der elektro- 
nischen Textverarbeitung zu schreiben. Im vereinfachten Fall kann es 
genügen wenn man als Überschrift die Anrede "Sehr geehrte Damen und 
Herren" wählt. Ein solcher Brief wirkt allerdings sehr unpersönlich und 
kann daher seine Wirkung verfehlen. Besser wäre es, direkt den Namen des 
Schuldners einzusetzen. Das wird durch die Textsubstitution ermöglicht. 
Man fügt dazu in dem laufenden Text ein Kennzeichen ein, das beispiels- 
weise ähnlich wie #e# lauten kann. Wir wählen #a# für die Adresse und #n# 
für den Namen. Der Rechner ersetzt dann überall dort, wo er diese Zeichen 
findet, die Zeichenfolge durch den aktuellen Namen bzw. durch die aktuelle 
Adresse, die nacheinander von einer Datei eingelesen werden kann, So ist 
es möglich, Rundschreiben auf einfache Art und Weise mit einer persön- 
lichen Note zu verfassen. Auch dieses Menü können Sie leicht program- 
mieren, da wir sämtliche Programmbausteine, die wir dazu benötigen, schon 
geschrieben haben. Sie müssen eine Datei bereitstellen, in der Sie die 
Namen bzw. die Adressen abgespeichert haben. Wie dieses zu bewerkstelligen 
ist, haben wir schon mehrfach besprochen. Danach müssen wir in der 
laufenden Textzeile überprüfen ob wir ein Wort ersetzen müssen. Das dazu 
benötigte Programm haben wir in dem Menü TEXT BEARBEITEN, WORT SUCHEN 
bereits geschrieben. Anschließend korrigieren wir das Zeichen #n# oder #a# 
nach dem Menü TEXT BEARBEITEN, Punkt 3, 

Wie Sie sehen, haben Sie bereits sämtliches "Handwerkszeug", um auch 
anspruchsvolle Textverarbeitung durchzuführen. Sie sollten sich deshalb 
unbedingt genauestens mit den einzelnen kleinen Programmen auseinander- 
setzen. Schwierige Probleme können Sie dann ganz einfach lösen. 
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9.7.5 Textverarbeitung und Rechnen 


Ein Angebotsschreiben ist einerseits ein Brief, also ein Text, 
andererseits aber auch eine Rechnung, da Zahlen addiert und multipliziert 
werden. Es liegt also nahe, die Textverarbeitung mit einer arithmetischen 
Verarbeitung zu koppeln. Das bedeutet, daß der Rechner selbständig in 
einem Angebotsschreiben die Summe der einzelnen Posten bestimmt. Solche 
Textverarbeitungsprogramme sind kommerziell erhältlich. Für den Anfänger 
dürfte es einige Schwierigkeiten bereiten, ein solches Textverarbeitungs- 
programm zu programmieren. Vielleicht wagen Sie sich später dennoch an 
diese interessante Aufgabe. 


10 Haben wir noch etwas vergessen? 


Die Überschrift zu diesem Kapitel wirkt sicherlich ein wenig provozie- 
rend. Ein professioneller Programmierer weiß, daß er auch nach jahrelanger 
Arbeit an einem Programm noch immer etwas vergessen haben kann. Dies liegt 
in der Natur der Sache. Ein gutes Programm 'lebt', d. h. es wird ständig 
gepflegt und gewartet. Wir sollten in diesem Kapitel ein kurzes Resümee 
über das bisher geschriebene Programm ziehen. Dazu sollten Sie sich die 
Abb. 15 ansehen, in der das komplette Programm aufgelistet ist. Sie 
sehen, daß unser Programm doch eine ganz beachtliche Länge erreicht hat. 
Trotzdem ist es übersichtlich geblieben. Wenn Sie eifrig mitgearbeitet 
haben, werden Sie die einzelnen Programmabschnitte sehr schnell erkennen 
können. Wenn Sie eine andere Programmiersprache wie z. B. PL/1, FORTRAN 77 
oder PASCAL benutzt hätten, wäre unser Programm noch übersichtlicher 
geworden, da sich in diesen Programmiersprachen die Programmsegmente ein- 
facher und leichter herausarbeiten lassen. Eine kleine Orientierung in 
unserem BASIC-Programm bilden die Zeilennummern. Das Hauptsteuerprogramm 
finden Sie von Zeile 100 bis 165. Hier werden die Hauptmenüs ausgewählt. 
Sämtliche Untermenüs, die wiederum hierarchisch strukturiert sind und 
mehrere Punkte umfassen, sind ähnlich wie dieses Steuerprogramm aufge- 
baut. 

Sehen Sie sich die Zeilen 5000 bis 5069 an. Erkennen Sie die Ähnlich- 
keit zu der Struktur des Hauptmenüs? In diesen Programmzeilen wird das 
Untermenü TEXT BEARBEITEN aufgeführt. Sie sollten das komplette Programm 
nach diesen Steuerteilen 'durchforsten' und nachsehen, ob sie einheitlich 
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18 DIM T$<4088) , TX$(488) 

28 POKE 53272,23:N2=8 

188 PRINT"R”" 

185 PRINT "HAUPTMENUE”" 

30 PRINT nn ":PRINT:PRINT 

115 PRINT"F1i1 - TEXT EINGEBEN" :PRINT 
128 PRINT"F2 - TEXT AUSGEBEN" : PRINT 
125 PRINT'"F3 - TEXT SPEICHERN" :PRINT 
138 PRINT'"F4 — TEXT ABRUFEN" :PRINT 

135 PRINT"FS - TEXT BEARBEITEN" :PRINT 
4148 PRINT"F6 - TEXT VERARBEITEN" :PRINT 
143 PRINT"F? - SONDERFUNKTIONEN" :PRINT 
144 PRINT"F8 - PROSRAMM BEENDEN" :PRINT 
158 GOSUB 9858 

162 IF NOT<F?>=133 AND F<=148) THEN 188 
165 ON F-132 6GOTO 1888,3908,5888,7888,2088,4988,6088,8888 
1888 PRINT"TEXT EINGEBEN" 

IBB5 PRINT ":PRINT 

1828 NZ=N2Z+1 

1825 IF NZ=481 THEN PRINT"#*%* DATEI VOLL ##":FOR I=1 TO 1888:NEXT 1:60T09 1868 
1827 T$CNZI="" 

1838 PRINT'"W’" ; NZ," 

1848 GET %$: IF %$="" THEN 1848 

1842 IF %$=CHR$<(13) THEN 1858 

1844 PRINT %$;: T$CNZI=T$CNZ)I +X$:G0OT9O 1848 
1858 IF T$CNZI="HER" THEN 1868 

1851 PRINT:PRINT 

1852 IF INT(CNZ/19)CDNZ/18 THEN 1828 
1854 X=FRE(®8) 

1855 IF x<=8 THEN %=32767+(%+32768) 
1857 PRINT"BNOCH PLATZ FUERE" ;X ; "ZEICHEN" 
1858 PRINT:PRINT 

1859 GSOTO 1928 

1868 NZ=NZ-1:60T0 188 

2888 PRINT'"G" :PRINT"TEXT AUSSEBEN" 
2885 FRINTF--mmmnnuunnun ":PRINT 

2886 GOSUB 9158 

2818 PRINT"1 - BILDSCHIRM" :PRINT 

2815 PRINT"2 - DRUCKER" :PRINT 

2828 PRINT'"S - HAUPTMENUE" :PRINT:PRINT 
20825 GOSUB 9858 

2827 IF F=148 THEN SOTO 188 

2838 PRINT :PRINT 

2835 INPUT"ANZAHL DER ZEILEN PRO SEITE";ZZ 
2848 IF F=133 THEN 2188 

2845 IF F=137 THEN 2288 

2858 PRINT"R"” :GSOTO 20888 

2188 PRINT'"’L" 

2185 FOR I=1 TO NZ 

2118 PRINT T$<D 

2115 IF I/2Z2<>INT(CI/ZZ) THEN 2145 

2128 PRINT: INPUT"WEITER<J/NI" ;A$ 

2155 IF A$<>"J" THEN 21508 

2168 GOTO 2888 

2288 OPEN 1,4:CMDi 

2285 FOR I=1 TO NZ 

2218 PRINT#1,T$<D 

2215 IF 1/2ZZ<C>INTCI/ZZ) THEN 2225 

2228 FOR %X=1 TO 4:PRINT#1," ":NEXT KK 
2225 NEXT I 

2238 PRINT#1,"” " 

2235 PRINT#1 

2248 CLOSE1i 

2245 GOTO 2888 

3888 PRINT"K" :PRINT"TEXT SPEICHERN" 
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3885 PRINT"-------------- "PRINT 

3886 GOSUB 9159 

3818 PRINT"1 - DATASSETTE" :PRINT 

3815 PRINT"2 - DISKETTE":PRINT 

3828 PRINT"8 - HAUPTMENUE" :PRINT:PRINT 
3825 GOSUB 9858 

3838 IF F=148 THEN 60T0 188 

3835 INPUT "DATEINAME" ;D$ 

3848 IF F=133 THEN 3198 

3845 IF F=137 THEN 3288 

3858 PRINT"”:GOTO 3808 

3188 OPEN 41,1,1,D$ 

3185 FOR I=1 TO NZ 

3118 PRINT#1,CHR$(34) ;T$CI) ;CHR$C34) 
3115 NEXT I 

3128 PRINT#H1, "HER" 

3125 CLOSEA 

3138 GOTO 3888 

3288 OPEN 2,8,2,D$+",5,W" 

3285 OPEN 1,8,15 

3218 FOR I=1 TO NZ 

3215 PRINT#2,CHR$(34) ;T$CI) ;CHR$(34) 
3228 NEXT I 

3225 PRINT#2, "HER" 

3239 CLOSEAi 

3235 CLOSE2 

3248 G0TO 3988 

4888 PRINT"K" :PRINT"TEXT ABRUFEN" 

4885 PRINT"------------ "PRINT 

4818 PRINT"i - DATASSETTE" :PRINT 

4815 PRINT"2 - DISKETTE":PRINT 

4828 PRINT"8 - HAUPTMENUE" :PRINT:PRINT 
4825 GOSUB 9958 

4838 IF F=148 THEN 60TO 188 

4835 INPUT"DATEINAME" ;D$ 

4848 IF F=133 THEN 4188 

4845 IF F=137 THEN 4288 

4858 PRINT"" :GOTO 4988 

4188 OPEN 1,1,1,D$ 

4185 I=1 

4118 INPUT#1,T$<I) 

4115 IF T$CDCI"HER" THEN I=141:60T0 4118 
4128 NZ=1-1 

4125 CLOSEA 

4138 GOTO 4888 

42088 OPEN 2,8,2,D$+",5,R" 

4285 OPEN 1,8,15 

4218 I=1 

4215 INPUT#2,T$(1) 

4228 IF T$SCD<CI"HER" THEN I=141:60T0 4215 
4225 NZ=1I-1 

4238 CLOSE1A 

4235 CLOSE2 

4248 G0TO 4988 

5888 PRINT"K" :PRINT"TEXT BEARBEITEN" 
5885 PRINT"--------------- "PRINT 

5886 GOSUB 9158 

5818 PRINT"1 - WORT SUCHEN" :PRINT 

5815 PRINT"2 - WORT LOESCHEN" :PRINT 
5828 PRINT"3 - WORT KORRIGIEREN" :PRINT 
5825 PRINT"4 - ZEILECN) LOESCHEN" :PRINT 
5838 PRINT"S - ZEILE<N) EINFUEGEN" :PRINT 
5835 PRINT"6 - ZEILE<N) VERSCHIEBEN" :PRINT 
5858 PRINT"8 - HAUPTMENUE" 

5855 GOSUB 9858 

5868 IF NOT(CF>=133 AND F<=148) THEN 5888 
5862 ON F-132 GOTO 5198,5390,5508,5008,5208,5498,5688,188 
5869 GOTO 5888 
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5188 PRINT"WORT SUCHEN" 

5192 PRINT"”-------- » 

5185 PRINT: INPUT"WORT EINGEBEN" ;W$ 
5118 GOSUB 9188 

5115 FOR I=ZA TO ZE 

5128 %$=T$<JD) 

5125 DA=1 

5138 GOSUB 9288 

5135 IF ID=8 THEN 5168 

5148 PRINT"K" :PRINT"ZEILE WW"; 1; "w" 
5142 PRINT :GSOSUB 9258 

5144 PRINT :PRINT: INPUT"WEITER <(J/N)" ;KX$ 
5146 IF x%$="J" THEN 5158 

5147 IF xX$="N" THEN 5888 

5148 SOTO 5144 

5158 DA=ID+LENCH$) 

5155 IF DA<LEN(K$)-LEN(CH$) +1 THEN 5138 
5168 NEXT I 

5199 GOTO 5888 

5288 PRINT"WORT LOESCHEN" 

Bau PRINT nn ” 

5285 PRINT: INPUT"WORT EINGEBEN" ;W$ 
5218 GOSUB 9188 

5215 FOR I=ZA TO ZE 

5228 %$=T$(I) 

5225 DA=1 

5238 GOSUB 9288 

5235 IF ID=8 THEN 5288 

5248 XD=LEN(CK$)-CID+LENCH$) -1) 

5242 IF xD=8 THEN X%$=LEFT$CK$,1ID-1) 
5244 IF xD>8 THEN X$=LEFT$CK$,1ID-1) +RIGHT$CK$,XD) 
5246 PRINT"K” :PRINT"ZEILE W";T; "ww" 
5248 T$CD=X$ 

5258 PRINT :PRINT T$<cD 

5255 PRINT:PRINT: INPUT"WEITER <J/NI" ;KX$ 
5268 IF XX$="J" THEN 5278 

5262 IF XX$="N" THEN 5299 

5265 GOTO 5255 

5278 DA=ID+LENCH$) 

5275 IF DA<LEN(CK$)-LENCH$) +1 THEN 5238 
5288 NEXT I 

5299 GOTO 5888 

5388 PRINT"WORT KORRIGIEREN” 


5382 PRINT"---------------- " 

5385 PRINT 

5386 INPUT"ZU KORRIGIERENDES WORT" ;H$ 
5387 INPUT"KORREKTUR ";HK$ 


5318 SOSUB 9188 

5315 FOR I=ZA TO ZE 

5328 %$=T$<CI) 

5325 DA=i 

5338 GOSUB 9298 

5335 IF ID=8 THEN 5388 

5348 XxD=LEN(KX$)-CID+LENCH$) -1) 

5342 IF XD=8 THEN X$=LEFT$(CX$,ID-1) +WK$ 

5344 IF XD>8 THEN K$=LEFT$CKS$,ID-1) +WHK$+RIGHT$SCK$,XD) 
5346 PRINT "KG" :PRINT"ZEILE W";T; "ww" 

5348 T$CIDI=X$ 

5358 PRINT :Di1$=W$:D2$=WK$ :W$=WK$:GOSUB 9258 :W$=D1$:WK$=D2$ 
5355 PRINT:PRINT: INPUT"WEITER <(J/NI" ;XX$ 

5368 IF XxX$="J" THEN 5378 

5362 IF XxX$="N" THEN 5399 

5365 GOTO 5355 

5378 DA=ID+LEN<W$) 

5375 IF DA<LENCK$)-LEN(CH$) +1 THEN 5338 


5388 NEXT I 
5399 GOTO 5888 
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5488 
5482 
5485 
5418 
5415 
5428 
5425 
5427 
5428 
5438 
5435 
5448 
5445 
5458 
5455 
5508 
5582 
5505 
5597 
5518 
5515 
5528 
5521 
5525 
5535 
5537 
5538 
5545 
55508 
5553 
5556 
5568 
5564 
5578 
5575 
5588 
5585 
5598 
5688 
5682 
5685 
5618 
5611 
5615 
5616 
5628 
5621 
5622 
5623 
5624 
5638 
5631 
5632 
5633 
5634 
5635 
5636 
5648 
5641 
5642 
5643 
5658 
5652 
5654 
5656 
5658 
5668 


PRINT"ZEILE<N) LOESCHEN” 


PRINT"-------- 


GOSUB 9158 
SOSUB 9188 


PRINT:PRINT"WOKE <J/ND"; 


INPUTX$ 


IF x$<{d"J" THEN 5988 
IF ZA=1 AND ZE=NZ THEN NZ=8:60T0 5988 


IF ZE=NZ THEN 
FOR I=ZE+1 TO 
T$(ZA)=T$CD 
za=ZzA+1 

NEXT I 
NZ=ZA-1i1 

SOoTO 5988 


NZ=ZA-1:60T0 5088 
NZ 


PRINT"ZEILE<N) EINFUEGEN" 
PRINT"------------------ ":PRINT:PRINT 
PRINT "TEXT EINGEBEN (ENDE DURCH #E#)":PRINT 


NA=1 


PR INT" ‘ NK r „" 


INPUT TX$ CN) 


IF TR$SCNKS)="HER" THEN NX=NKk-1: GOTO 5535 
IF NX+NZ<488 THEN NX=NX+1:G0T90 5518 
PRINT:PRINT"”%DATEI VOLL%*":PRINT 

PRINT: INPUT "EINFUEGEN NACH ZEILE" ;NA 

IF NA<{8 THEN 5535 


IF NA>NZ THEN 
I=NZ : IX=NZ +N% 


5535 


IF I=NA THEN 5578 


T$<CIX)=T$CD 
I=1-1 

Ix=1IX-1 

SoTo 5558 

FOR I=1 TO NX& 


T$(NA+DD=TX$CD 


NEXT I 
NZ=NZ +NX 
GSoTO 5888 


PRINT"ZEILE<N) VERSCHIEBEN" 
PRINT"-------------- - " 


PRINT:PRINT 


PRINT"ZU VERSCHIEBENDER TEXTBEREICH" 


GOSUB 9188 
PRINT 


INPUT"VERSCHIEBEN NACH ZEILE" ;NA 


I=1 


FOR Ii=ZA TO ZE 


T8$<I)=T$C11) 
I=I+1 

NEXT Ii 

KA=ZA :KE=ZE 
IF KE=NZ THEN 
FOR I=KE+1 TO 
T$CKAI=T$CH 
KRA=KA+I 

NEXT I 
NZ=X#R-1 
NX=ZE-ZA+1 

IF NA<ZA THEN 
IF NA>DZE THEN 
PRINT"FEHLER”" 
I=NZ : IX=NZ +NX 


NZ=XA-1:G0T0 5648 
NZ 


5658 
NA=ZA-1+NA-ZE:GOTO 5658 


:FOR I=1 TO 1888:NEXT 1:60T0 5888 


IF I=NA THEN 5678 


T$CIX)=T$CD) 
I=I-1 
Ix=IX-1 
GSoTO 5652 
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5678 FOR I=1 TO N% 

5672 T$<NA+II=TX$(CD 

5674 NEXT I 

5676 NZ=NZ+NX 

5688 GOTO 5888 

6888 PRINT"W” :PRINT"TEXT VERARBEITEN" 
EIER: ea ":PRINT 
6886 GOSUB 9158 

86818 PRINT"1 - ZEILENUMBRUCH" :PRINT 
6812 PRINT"2 - BLOCKSATZ":PRINT 

6814 PRINT"8S - HAUPTMENUE"” :PRINT:PRINT 
6828 GOSUB 9858 

6827 IF F=148 THEN SOTO 188 

6838 PRINT :PRINT 

6835 IF F=133 THEN 6108 

6848 IF F=137 THEN 62088 

6845 GOTO 6888 

6188 INPUT "ANZAHL DER ZEICHEN PRO SEITE"”;LZ 
6182 PRINT:PRINT 

6185 PRINT "BITTE WARTEN” :PRINT 

6118 N2=1 

6115 TRAFCNZI="" 

6117 L2=8 

6118 FOR I=1 TO NZ 

6128 KA=1:KE=LEN(T$SCI)) 

6125 FOR K=1 TO KE 

6138 IF K=LEN<T$CI)) THEN K=-K+1:60T0 6148 
6135 IF MID$<T$<CD,K,12DCD" " THEN 6158 
6148 IF L2+K-KA>LZ THEN N2=N2+1: TX$CN2)="":L2=8 
6143 L2=L2+K-Kn 

6145 TR$CNZI=STRSCN2I +" "+MID$CTSCI) ,KA,K-KA) 
6146 KA=K+1 

8158 NEXT K 

6153 NEXT I 

6168 FOR I=1 TO N2 

6162 T$CIDI=TA$CD 

6164 NEXT I 

6166 NZ=N2 

6178 GOTO 6888 

6288 INPUT"ZEILENLAENGE ";Z2:PRINT:PRINT 
8281 FOR S=1 TO NZ 

8282 X$=T$(5) 

6283 FOR XL=1 TO LEN(CK$) 

6285 IF MID$<CKX$,XL,1)=" " THEN 6228 
6218 NEXT XL 

68215 GOTO 6278 

6228 P=ZZ-LEN<(K$) 

6225 IF P=8 THEN GOTO 6278 

6227 FOR Si=1 TO LEN<K$) 

6238 IF MID$CK$,S1,1)CD" ” THEN 6236 
6232 NEXT Si 

8234 GOTO 6278 

6236 PrR=S1 

6238 PE=LENCK$) 

6248 FOR S2=PrA TO PE 

6243 IF MID$CK$,S2,1)CD" " THEN 6268 
6247 K$=LEFTSCK$,S2) +" "+RIGHT$SCK$,LENCK$)-S2) 
6259 S2=S2+2 

6253 P=P-i1 

6256 IF P=8 THEN SOTO 6278 

6268 NEXT S2 

6265 GOTO 6236 

6278 T$(SI=X$ 

6275 NEXT S 

6288 GOTO 6888 

7888 PRINT"R” 

7881 PRINT"SONDERFUNKT TIONEN" 
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7885 PRINT"---------------- "PRINT 

7818 PRINT "1 - FREIER SPEICHERPLATZ" :PRINT 
7815 PRINT "2 - TEXTPROBE AUF DEM BILDSCHIRM" :PRINT 
7828 PRINT "3 - TEXTPROBE AUF DEM DRUCKER" :PRINT 
7821 PRINT"4 - TASTEN-WIEDERHOLUNGSFUNKT ION" :PRINT 
7823 PRINT"S - TEXTDATEI AUF DISKETTE LOESCHEN" :PRINT 
7848 PRINT"S - HAUPTMENUE" :PRINT 

7845 GOSUB 9958 

7858 ON F-132 60T0 71898,7388,7508,7008,7208,7480, 788,188 
7188 PRINT"FREIER SPEICHERPLATZ" 

7182 PRINT"-------------------- u 

7185 X=FRE (8) 

7118 IF X<=8 THEN X=32767+(X+32768) 

7138 PRINT"NOCH PLATZ FUER ";%;" ZEICHEN FREI" 
7198 GOSUB 9818 

7199 G0T0 7888 

7288 PRINT"TEXTPROBE AUF DEM BILDSCHIRM" 

7282 PRINT"---------------- " 

7283 GOSUB 9158 

72085 G0SUB 9188 

721@ PRINT: INPUT"ZEILEN PRO BILSCHIRMSEITE" ;NB 
7215 IX=8:PRINT"K" 

7217 FOR I=ZaA TO ZE 

7218 Ix=IX+1 

7228 PRINT"g";I;"@" 

7222 PRINT T$<cD 

7225 IF IX/NB<>INTCIX/NB) THEN 7235 

7228 PRINT: INPUT"WEITER <J/NI" ;X$ 

7238 IF X$="J" THEN PRINT"K":G0TO 7235 

7231 IF X$="N" THEN 7098 

7232 6010 7228 

7235 NEXT I 

7248 IF IX/NB <> INTCIX/NB) THEN 7245 

7242 IF X$C>"J" THEN 7248 

7243 G0TO 7888 

7245 INPUT"WEITER (J/ND" ;X$ 

7258 G0TO 7888 

7388 PRINT"TEXTPROBE AUF DEM DRUCKER" 

7382 PRINT"----------------------- - - " 

7383 GOSUB 9158 

7385 GOSUB 9188 

7318 OPEN 1,4,7 

7315 CMDA 

7328 FOR I=ZA TO ZE 

7325 PRINT#1,1;". ";T$(D 

7338 NEXT I 

7335 PRINT#1 

7348 CLOSE 1 

7399 G60TO 7888 

7488 PRINT" TASTEN-WIEDERHOLUNGSFUNKT ION" 

7482 PRINT"------------------ " 

7485 PRINT 

7418 INPUT"WIEDERHOLUNSSFUNKTION £J/ND" ;K$ 

7415 IF NOTCX$="J" OR X$="N") THEN PRINT"EINGABEFEHLER":GOTO 7418 
7428 IF %$="J" THEN POKE 658,128 

7425 IF X$="N" THEN POKE 658,86 

7438 G0T0 7888 

7588 PRINT"TEXTDATEI (DISKETTE) LOESCHEN" 

7582 PRINT"------------------ ":PRINT 
7585 INPUT "DATEINAME" ;D$ 

7518 PRINT:PRINT 

7515 INPUT "OK (J/NI" ;X$ 

7516 PRINT 

7528 IF X$="N" THEN 7538 

7521 IF %$="J" THEN 7548 

7522 6010 7515 

7538 PRINT"LOESCHEN UNTERDRUECKT" 
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7531 FOR I=1 TO 1888:NEXT I 

7532 GOTO 7888 

7548 PRINT"LOESCHEN WIRD DURCHGEFUEHRT" 

7541 FOR I=1 TO 888:NEXT I 

7542 OPEN 1,8,15 

7545 PRINT#1,"S:"+D$ 

7558 CLOSE 1 

7555 GOTO 7888 

8888 POKE 53272 ,21 

8818 PRINT"PROSRAMM BEENDET" 

8828 END 

9888 REM %Uix* 

9885 PRINT"NOCH NICHT VERFUEGBAR" 

9818 INPUT"WEITER (J/NI";A$ 

9815 IF A$C>"J" THEN 9818 

9828 RETURN 

9858 REM #U2%# 

9855 PRINT :PRINT:PRINT"WFUNKTIONSTASTE DRUECKENM'" 
9868 GET F$:IF F$="" THEN 9868 

9865 F=ASC<F$) :PRINT"’R” 

9878 RETURN 

9188 REM *U3%# 

9118 PRINT: INPUT"VON ZEILE, BIS ZEILE" ;,ZA,ZE 

9115 IF ZA<=8 THEN PRINT"EINSABEFEHLER":SOTO 91108 
9128 IF ZE<=8 THEN PRINT"EINSABEFEHLER"” :GSOTO 9118 
9125 IF ZE>DNZ THEN PRINT"ES SIND NUR ";NZ;" ZEILEN SESPEICHERT":GSOTO 9118 
9138 IF ZA>ZE THEN PRINT"EINSABEFEHLER"” :SOTO 9118 
9135 RETURN 

9158 REM #U4%* 

9155 IF NZ>8 THEN 9178 

93157 PRINT"KEIN TEXT VORHANDEN” 

9168 FOR I=1 TO 1888:NEXT I 

9165 GOTO 188 

9178 RETURN 

9288 REM KUS5% 

9285 %=LEN (W$) 

9218 IF DA > LEN(CK$)-K+i1 THEN 9238 

9215 FOR D=DA TO LENCK$I-K+i 

9228 IF MID$<CX$,D,X)=W$ THEN ID=D:RETURN 

9225 NEXT D 

9238 ID=8:RETURN 

9258 REM #U6%# 

9255 IF ID=8 THEN PRINT X%$:RETURN 

9268 KD=LEN(K$)-CID+LENCH$)-1) 

9265 IF xD=8 THEN PRINT LEFT$CK$,ID-1);, "WW" ;W$;, 
9278 IF %D>8 THEN PRINT LEFT$CK$,ID-12D;"W’;W$, "WE" ;ZRIGHTS$CKS$,XD) 
9275 RETURN 


Abb. 15 Das Listing unseres kompletten 
Textverarbeitungsprogramms 
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aufgebaut sind. Wenn das nicht der Fall ist, korrigieren Sie das Programm 
und vereinheitlichen Sie unbedingt den Programmierstil. Ein weiterer Punkt 
ist die richtige Benutzung der Unterprogrammtechnik. Hier sollten Sie 
darauf achten, daß möglicherweise weitere Unterprogramme hinzugefügt 
werden müssen. Sehen Sie nach, ob einzelne Programmteile wiederholt vor- 
kommen. In diesem Fall sollte man sämtliche Programmteile zu einem ein- 
heitlichen Unterprogramm zusammenfassen, das dann von den entsprechenden 
Stellen des Hauptprogramms aufgerufen wird. 

Wie sieht es aber mit unserer Unterprogrammsammlung aus, die ab 
Programmzeile 9000 beginnt? Unser erstes Unterprogramm *U1* brauchen wir 
doch nicht mehr, oder doch? Eine schwierige Entscheidung! Auf den ersten 
Blick mag es so aussehen, als habe dieses Unterprogramm seinen Zweck 
erfüllt. Bei der Einführung dieses Programmteils benutzten wir es als 
'platzhalter' für die Menüs, die noch fertiggestellt werden mußten. Da 
wir zur Zeit sämtliche Menüs programmiert haben, die auf dem Bildschirm 
zur Auswahl erscheinen, benötigen wir das Unterprogramm *U1* nicht mehr. 
Wir sollten uns überlegen, ob es nicht sinnvoll wäre, dieses Unterprogramm 
aufzuheben. Ich hatte Ihnen bereits mehrere Anregungen für eine Erweite- 
rung des Textverarbeitungsprogramms gegeben. In diesem Fall könnten wir 
das Unterprogramm durchaus dazu verwenden, wenn wir nicht sämtliche 
Erweiterungen auf einen Schlag realisieren wollen. 

An dem Beispiel des Unterprogramms *U1* habe ich Ihnen gezeigt, daß es 
sich durchaus lohnen kann, die Unterprogramme noch einmal durchzugehen. 
Ich wollte Ihnen damit nur die Anregung geben, dies zu tun. Es ist jetzt 
an der Zeit, daß Sie selbst aktiv werden und nicht nur die Dinge nachvoll- 


ziehen, die Ihnen in diesem Buch präsentiert wurden. Dazu wünsche ich 
Ihnen viel Erfolg. 


ll Professionelle Textsysteme 


Der Commodore 64 ist ein Hobbycomputer. Das bedeutet, daß er für den 
professionellen Routineeinsatz nicht geeignet ist. Systeme für den 
kommerziellen Einsatz kosten meist einiges mehr als der Commodore 64. In 
diesem Abschnitt möchte ich ein paar Punkte ansprechen, die ein pro- 
fessionelles Textsystem auszeichnen. Wir werden dies anhand der Checkliste 
tun, die auf den nachfolgenden Seiten zu sehen ist. Sie können diese 
Checkliste natürlich auch für die Textsysteme anwenden, die für den 
Commodore 64 angeboten werden (z. B. TEXTOMAT, SM-TEXT, VIZEWRITE, WORD- 
STAR; EASY WRITER usw.). 

Die Checkliste ist wie folgt zu benutzen. In der linken Spalte sehen 
Sie Merkmale für Textsysteme. Diese Merkmale werden nachfolgend kommen- 
tiert. In der darauffolgenden Spalte tragen Sie Ihre Gewichtung ein, die 
von dem individuellen Problem abhängt, für das Sie das Textsystem ein- 
setzen wollen. Die Gewichtung sollte sinnvollerweise die Werte zwischen 0 
und 1 annehmen. Geben Sie die 1 als Gewichtung an, so bedeutet das, daß 
dieses Kriterium für Sie eine große Bedeutung hat. Der Wert 0 bedeutet, 
daß dieser Punkt für Sie unbedeutend ist. In der nächsten Spalte tragen 
Sie die Punkte ein, die das jeweilige Textsystem für das entsprechende 
Merkmal hat. Sie sollten hier eine Punkteskala von 0 bis 100 wählen. 100 
Punkte bedeuten, daß das Textsystem dieses Merkmal vollständig erfüllt. 
Anschließend multiplizieren Sie die Punkte mit der Gewichtung und tragen 
diesen Wert in die Spalte 'Ergebnis' ein. Schließlich werden die in dieser 
Spalte eingetragenen Punkte addiert. Wenn sie mehrere Textsysteme auf 
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diese Art und Weise objektiv miteinander vergleichen, werden Sie das beste 
System auswählen können. 

Die Checkliste hat keinen Anspruch auf Vollständigkeit. Für die 
jeweilige Betrachtungsweise muß sie sicherlich um einige Punkte ergänzt 
werden. 

Unter Punkt 1 wird in der Checkliste der Anwendungsbereich ange- 
sprochen. Man muß zwischen Textsystemen differenzieren, die in Büro und 
Verwaltung für die Dokumentation oder für technische Problemstellungen 
eingesetzt werden. Für den Bereich Büro und Verwaltung sind Leistungs- 
merkmale wie das Erstellen von Rundschreiben von großer Bedeutung. Bei 
der Dokumentation ist darauf zu achten, daß das Textsystem Schnittstellen 
zu Datenbanken erlaubt. Wir werden das unter Punkt 5 noch einmal ge- 
sondert ansprechen. Bei technischen Problemstellungen sind mit einigen 
Besonderheiten zu rechnen, die beispielsweise durch die Verwendung von 
chemischen, mathematischen oder physikalischen Symbolen entstehen. 

In Punkt 2 werden allgemeine Programmspezifikationen behandelt. Ein 
Programm kann dateiorientiert, speicherorientiert oder textorientiert 
arbeiten. Bei der dateiorientierten Arbeitsweise wird der Text laufend in 
eine Arbeitsdatei geschrieben, wobei gleichzeitig eine Sicherungsdatei 
(Back up) verwaltet werden sollte. Diese Arbeitsweise hat den großen Vor- 
teil, daß die Textlänge unabhängig von der Größe des Arbeitsspeichers des 
Rechners ist und lediglich durch den verwendeten Externspeicher bestimmt 
wird. Nachteilig ist, daß während des Eintippens des Textes immer auf 
einen externen Speicher zugegriffen werden muß. Das bedeutet, daß solche 
Textsysteme langsamer sind als die speicherorientierten Systeme, bei denen 
der Text im Arbeitsspeicher aufbereitet wird. Wenn die Kapazität des 
Arbeitsspeichers erschöpft ist, wird der gesamte im Arbeitsspeicher 
enthaltene Text auf einen Externspeicher geschrieben. Bei der text- 
orientierten Arbeitsweise wird der eingegebene Text in Seiten und Kapiteln 
verwaltet und in einzelnen Kapiteln von mehreren Seiten abgespeichert. Die 
textorientierte Arbeitsweise hat den Vorteil, daß die logische Struktur 
und der Inhalt des Textes berücksichtigt werden. Bei der in Punkt 2.3 
besprochenen Endlosverarbeitung ist die Dateigröße, d. h. der Textumfang, 
nur vom Speichermedium abhängig. Es ist sehr wichtig, daß der Zeichensatz 
des Druckers an den Zeichensatz des Bildschirms angepaßt werden kann. Nur 
so ist es möglich, daß der Benutzer den Text auf dem Bildschirm in der 
Form sehen kann, wie er anschließend auf dem Drucker ausgegeben wird. 
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Leider entspricht ein vom Hersteller geliefertes Textsystem nur selten den 
Vorstellungen des Benutzers. Deswegen kann es oft wichtig sein, daß der 
Anwender Änderungen an dem Textverarbeitungsprogramm durchführen kann, 
Bei dem in unserem Buch vorgestellten einfachen Textverarbeitungspro- 
gramm ist dies ohne weiteres möglich, da Sie sich das Programm während 
der einzelnen Kapitel selbst erarbeitet haben. Sie können Sich aber vor- 
stellen, daß ein solches Unterfangen möglicherweise sehr schwierig ist, 
wenn Sie das Textverarbeitungsprogramm nicht kennen. Deshalb kann die im 
nächsten Abschnitt angesprochene Dokumentation des Programms von großer 
Bedeutung sein. 

Zu der Dokumentation gehört zunächst das in Punkt 3.1 angesprochene 
Handbuch, das für die Benutzung des Programms hilfreich sein sollte und 
die Arbeitsweise und den Aufbau des Programms erläutern sollte, damit der 
Benutzer die unter Punkt 2.6 angesprochenen Änderungen leicht durchführen 
kann. Gute Handbücher enthalten eine ausführliche Anweisung für die 
Einarbeitung in das Textsystem. 

Sie sind dabei meist in drei Teile untergliedert. Der erste Teil ent- 
hält eine ausführliche Anweisung für die Benutzung des Textsystems, der 
zweite Teil dient als Nachschlagewerk für denjenigen, der schon mit dem 
Textsystem umgehen kann, aber die eine oder andere Funktion nachschlagen 
möchte. Der dritte Teil sollte den Aufbau und die Funktionsweise des 
Programms beschreiben. Die Einarbeitung in die Benutzung eines Textsystems 
kann auch anhand eines Lernprogramms geschehen. Je nach individuellen 
Fähigkeiten lernen manche Benutzer schneller den Umgang mit dem System als 
durch ein Handbuch. Schließlich sollte bei professionellen Textsystemen 
auch vom Hersteller eine Schulung angeboten werden. 

Unter der Funktionalität eines Textverarbeitungsprogramms können sehr 
viele Punkte zusammengefaßt werden. Ich möchte mich hier auf 8 Punkte 
beschränken. Einen sehr wichtigen Punkt bilden die Cursor-Bewegungen. Ein 
komfortables Textsystem gestattet Cursorbewegungen 


- zum nächsten Wortanfang 

- zum vorherigen Wortanfang 

- zum Anfang einer Zeile 

- zum letzten Zeichen einer Zeile 
- zum Satzanfang 

- zum Satzende 
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zum Anfang eines Abschnittes 
zum Ende eines Abschnittes 

zur nächsten Bildschirmseite 
zur nächsten Textseite 

zur vorherigen Bildschirmseite 
zur vorherigen Textseite 

zum Textanfang 

zum Textende 


Unter Punkt 4.2 sind Hilfsfunktionen wie LOESCHEN, KOPIEREN und 
TRANSPORTIEREN beschrieben. Wir haben einen Teil dieser Funktionen bei 


unserem 


Textverarbeitungsprogramn bereits kennengelernt. Es sollte 


insbesondere möglich sein: 


Die 


ein Wort zu löschen 

von einer bestimmten Cursorposition bis zum Zeilenende zu löschen 
vom Zeilenanfang bis zur Cursorposition zu löschen 

eine Zeile zu löschen 

einen Satz zu löschen 

einen Absatz zu löschen 

einen definierten Bereich zu löschen 

einen definierten Spaltenblock zu löschen 

den gesamten Text zu löschen 

neuen Text in einen vorhandenen Text einzufügen 

einen Text an einer anderen Stelle block- und zeilenweise zu 
bewegen 


Bausteinverarbeitung bietet im allgemeinen folgende Möglichkeiten: 


Texte wie Phrasen, Anreden usw. können in den laufenden Text eingefügt 


werden: 


Kopf- und Fußzeilen können automatisch eingefügt werden 

die Seiten werden automatisch numeriert 

eine Fußnotenverwaltung im Text ist möglich 

die Stellung eines automatischen oder halbautomatischen Index 
oder Inhaltsverzeichnisses wird unterstützt. 
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Die Funktionen SUCHEN und ERSETZEN sollten die Eingabe eines Such- 
textes oder die Eingabe eines Ersatztextes gestatten. Dabei sollte es 
möglich sein, einmal oder mehrmals zu suchen, bzw. zu ersetzen. Eine 
weitere Funktion, die auch zu den in Punkt 4.2 erwähnten Funktionen 
gehört, ist das Sortieren. Dabei sollte es möglich sein, entweder alpha- 
betisch oder nach einem anderen Kriterium zu sortieren. 

Ein professionelles Textsystem für den Einsatz zur Rechnungsschreibung 
sollte Rechenfunktionen besitzen. Dazu ist es notwendig, daß mindestens 
die vier Grundrechnungsarten Addition, Subtraktion, Multiplikation und 
Division für horizontale und vertikale Angaben im Text verfügbar sind. 
Zusätzlichen Komfort würde die Prozentrechnung bieten. 

Sehr wichtig sind die in Punkt 4.6 angegebenen Formatierungsmöglich- 
keiten eines Textes. Dazu gehört eine Tabulatorfunktion, das Zentrieren 
des Textes und der Blocksatz. Zusätzliche Möglichkeiten bieten das 
Variieren des Zeichenabstandes und des Zeilenabstandes auf einem Drucker. 
Sehr komfortabel ist die Möglichkeit einer automatischen Silbentrennung 
bei einem Zeilenumbruch. Solche automatischen Silbentrennungsprogramme 
haben heute eine große Fehlerfreiheit erreicht. Sie sind allerdings so 
komplex, daß sie auf dem Commodore 64 kaum anwendbar sind. Eine große 
Hilfe für die Sekretärin würde eine Rechtschreibeprüfung mittels einer 
Wörterbuchfunktion bieten. Auch diese Option ist größeren professionel- 
leren Textsystemen vorbehalten. 

Die Zeichendarstellung auf dem Bildschirm umfaßt üblicherweise die 


- Normalschrift 

- Fettschrift 

- Kursivschrift 

- Unterstreichungen 

- Sperren des Textes 

- Proportionalschrift 

- Hochstellen des Textes 
- Tiefstellen des Textes 


Die Zeichendarstellung auf dem Bildschirm sollte möglichst mit der 
Zeichendarstellung des Druckers übereinstimmen, damit man auf dem Bild- 
schirm den Text so sehen kann, wie er später auf dem Drucker erscheint. 
Unter Druckerfunktionen sind folgende Punkte zusammenzufassen: 
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- Anwahl verschiedener Drucker ohne den Editor zu verlassen 

- Anpassung der Druckersteuerzeichen an das Programm durch eine 
Druckerdefintionsdatei 

- Druck auf Einzelblätter 

- Druck auf Endlospapier mit vorgegebener Länge 

- Druck auf Endlospapier mit beliebiger Länge 

- mehrmaliges Drucken des gleichen Textes 

- Druckpausen im Text bei Typenraddruckern für den Typenradwechsel 


Wir haben bei unserem Programm kennengelernt, daß man ein größeres 
Programm in verschiedene Unterprogramme aufteilen sollte. Ähnlich verhält 
es sich mit einem Textverarbeitungsprogramm als ganze Einheit. Hier wäre 
es sinnvoll, sogenannte Schnittstellen zu anderen Programmen zu schaffen. 
Das bedeutet, daß die von dem Textverarbeitungsprogramm erzeugten Daten 
auch anderen Programmen, wie beispielsweise einer Adreßverwaltung zur 
Verfügung stehen sollten. Bei einem integrierten System ist es durchaus 
sinnvoll, auch Datenbanksysteme wie beispielsweise dBase II anzuschließen. 
Interessant wäre auch der Anschluß an ein Tabellenkalkulationsprogramm wie 
ze B. MULTIPLAN oder VISICALC und die Möglichkeit, numerische Daten 
grafisch darzustellen. 

Als letzten Punkt habe ich die Ergonomie gewählt. Mit einem Textsystem 
muß schließlich jemand arbeiten. Wie gern er dies tun wird, hängt von der 
ergonomischen Leistungsfähigkeit des Textprogramms ab. Dazu gehört die 
Verständlichkeit des Programms. Ein weiterer Punkt ist die Bediener- 
freundlichkeit. Sehr nützlich ist es, wenn der Benutzer durch das Programm 
geführt wird und die in dem Textsystem vorhandenen Funktionen selbster- 
klärend sind. Es ist sicherlich sehr hinderlich, wenn man ein dickes 
Benutzerhandbuch aufschlagen muß, um mit dem Programm umgehen zu können. 
Obwohl unser Computer eine große Arbeitsgeschwindigkeit besitzt, kann es 
doch vorkommen, daß zur Verwaltung größere Texte sehr viel Computerzeit 
verschlungen wird. Das bedeutet, daß der Benutzer beispielsweise vor der 
Eingabe der nächsten Textzeile ein paar Sekunden warten muß, bevor der 
Computer die Texteingabe wieder frei gibt. Dies wird auf die Dauer sehr 
hinderlich sein und die Arbeitslust desjenigen vermindern, der mit dem 
System arbeiten muß. Unter dem Punkt 6.4 'Arbeitskomfort'' wird schließlich 
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auch die Anwendung von Funktionstasten. Einige Rechner besitzen nur eine 
relativ kleine Anzahl von Funktionstasten, die oft mehrfach belegt sind. 
Dadurch muß sich der Benutzer sehr viele Einzelheiten merken und macht 
meistens viele Fehler, bevor er die gewünschte Funktion anwählen kann. 

Ich wollte Ihnen mit dem letzten Beispiel nur einen kleinen Ausschnitt 
zeigen, auf welche Dinge man bei einem professionellen Textsystem unter 
anderem achten muß. Ich hoffe, Sie haben gesehen, daß diese Materie 
nicht ganz einfach ist und ein weites Betätigungsfeld bietet. Für 
denjenigen, der daran interessiert ist, mehr darüber zu erfahren, sei auf 
weiterführende Spezialliteratur verwiesen. 
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Beschreibung der getrennt lieferbaren Programmdiskette 


Die Programmdiskette enthält die in diesem Buch dargestellten Programme 
Pi bis P42, einschließlich des kompletten Textverarbeitungsprogramms. 
Mit ihrer Hilfe erspart man sich das zeitraubende Eintippen der Pro- 
gramme, kann sich voll auf die Aufnahme des Lehrstoffs konzentrieren 
und die Programme direkt am eigenen Gerät nachvollziehen. Am Ende des 
Buches finden Sie eine Bestellkarte zum Bezug der Diskette. 


Da der Speicherbedarf der Programme Pi - P42 die Kapazität der Disket- 
te übersteigt, ist die Diskette beidseitig beschrieben worden. 
Legen Sie die Diskette mit der Bezeichnung "Seite 1" nach oben in das 
Laufwerk 1541 ein. Tippen Sie 

LOAD"3",8 
und nach READY 

LIST 


ein. Sie erhalten dann folgenden Text auf dem Bildschirm 


a ET 3 ET 
4 npq" PRS 
Ä "pa" PRS 
£ "pg PRG 
1 "pq4" PRS 
1 "ps PRG 
1 "pe" PRG 
3 "pr" PRS 
5 "pg" PRG 
4 "pa" PRS 
4 "pig" PRG 
5 ure PRS 
& Hp4D® PRS 
8 "p13" PRS 
11 "P14” PRS 
3 "Ps PRS 
14 "Pig" PRS 
15 "PAi7" PRS 
1 "pıg" PRS 
1 "p19" PRS 
18  "pze" PRS 
19 "p21" PRS 
28 "pa2" PRS 
28 "p23" PRS 
2ı  "p24" PRS 
21 "pa25" PRS 
22 "Ppae" PRS 


22 "par" PRG 
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23 "mas PRS 
23  "pP29A" PRG 
23 "P29B" PRS 
24 "p3e" PRS 
25 ui 0 PRS 
25 "Pa" PRS 
25 "P33" PRG 


237 BLOCKS FREE. 


Die Programme Pi bis P33 sind also auf der Seite 1 abgespeichert. Drehen 
Sie nun die Diskette um und legen Sie sie so in das Laufwerk, daß die 
Bezeichnung "Seite 2" oben zu stehen kommt. Wiederholen Sie den oben 
beschriebenen Vorgang. Auf dem Bildschirm erscheint dann: 


e Be Tr TETE) 


25 "B34" PRS 
27 a u Se PRS 
293 "P36" PRS 
29 al 2 5 aa PRS 
38 "P38" PRS 
32 a 1 57 PRS 
32 "p48' PRS 
34 "Par" PRS 
35 ıPRE“ PRS 


391 BLOCKS FREE. 


Die Programme P34 bis P42 sind also auf der Seite 2 gespeichert. Wenn 
Sie beispielsweise das Programm 16 laden wollen, gehen Sie folgender- 
maßen vor: 


1. Legen Sie die Diskette mit der Bezeichnung "Seite 1" nach oben in 
das Laufwerk ein. 


2. Tippen Sie den Befehl 
LOAD"P16",8 
ein. Vergessen Sie nicht, die RETURN-Taste zu drücken! 


3. Das rote Lämpchen an der Diskettenstation leuchtet auf und auf dem 
Bildschirm erscheinen die Meldungen 
SEARCHING FOR P16 
LOADING 
READY 


4. Das Programm P16 steht Ihnen jetzt zur Verfügung. 


Das Laden der einzelnen Programme erfolgt sinngemäß, wie für P16 be- 
schrieben. 


CARL HANSER VERLAG 
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